主题：地址解析，不可保存至表格中

逐字符判断，遇到第一个数字，记录位置，将字符串该位置前所有字符取出记做“姓名”

去掉姓名部分的字符串逐字符判断，遇到第一个非数字字符记录位置，将该位置前所有字符记成“电话”

剩下的记做“地址”

对“姓名”和“地址”，去空格，去标点符号即可

 

用到的代码

DIM XM AS STRING

DIM DH AS STRING

DIM DZ AS STRING

DIM ST AS STRING

for i as integer = 0 to str.Length - 1

    IF CHAR.ISNUMBER(str.Chars(i)) THEN

        XM = LEFT(str,i)

        ST = str.substring(i)

        EXIT FOR

    END IF

next

for i as integer = 0 to ST.Length - 1

    if CHAR.ISNUMBER(ST.CHARS(I)) THEN

    ELSE

        DH = LEFT(ST,i)

        DZ = ST.SUBSTRING(I)

        EXIT FOR

    END IF

NEXT

 

 

 

下面那个循环语句忘了加 EXIT FOR了

你自己根据使用情况修改一下吧