[此贴子已经被作者于2018-8-1 16:52编辑过]
CLEAR mystr='一年级2356语文' str1=CHRTRAN(myStr,'0123456789.','') str2=CHRTRAN(myStr,str1,'') atstr2=AT(str2,mystr) lenstr2=LEN(str2) ?LEFT(mystr,atstr2-1) ?SUBSTR(mystr,atstr2+lenstr2)
[此贴子已经被作者于2018-8-1 17:51编辑过]
cstr = '一年级2356语文' cstr = Chrtran(cstr, '0123456789', Replicate(',', 10)) For i = 1 to ALines(astr, cstr, 1+4, ',') ? astr[i] Next
[此贴子已经被作者于2018-8-1 18:38编辑过]
[此贴子已经被作者于2018-8-1 19:00编辑过]
[此贴子已经被作者于2018-8-1 19:27编辑过]