VFP 中有没有把字符串转换为数组的函数
比如:
sStr="A=b;C=d;e=f"
类似 VB split
把这个字符中分成
一维数组 A=B C=d E=f
或者是
二维数组。A B
C D
e f
[解决办法]
没有专用的,可以自己写代码。
*---VFP9.0代码CLEARSSTR="A=B;C=D;E=F"*---一维数组LOCAL SJ(GETWORDCOUNT(SSTR,";")) && 定义一维数组FOR I=1 TO GETWORDCOUNT(SSTR,";") SJ(I)=GETWORDNUM(SSTR,I,";")ENDFORLIST MEMORY LIKE SJ*---二维数组LOCAL SJ(GETWORDCOUNT(SSTR,";"),2) && 定义二维数组FOR I=1 TO GETWORDCOUNT(SSTR,";") S_STR=GETWORDNUM(SSTR,I,";") FOR J=1 TO GETWORDCOUNT(S_STR,"=") SJ(I,J)=GETWORDNUM(S_STR,J,"=") ENDFORENDFORLIST MEMORY LIKE SJ
[解决办法]
没有专用的,可以自己写代码。
*---VFP9.0代码CLEARSSTR="A=B;C=D;E=F"*---一维数组LOCAL SJ(GETWORDCOUNT(SSTR,";")) && 定义一维数组FOR I=1 TO GETWORDCOUNT(SSTR,";") SJ(I)=GETWORDNUM(SSTR,I,";")ENDFORLIST MEMORY LIKE SJ*---二维数组LOCAL SJ(GETWORDCOUNT(SSTR,";"),2) && 定义二维数组FOR I=1 TO GETWORDCOUNT(SSTR,";") S_STR=GETWORDNUM(SSTR,I,";") FOR J=1 TO GETWORDCOUNT(S_STR,"=") SJ(I,J)=GETWORDNUM(S_STR,J,"=") ENDFORENDFORLIST MEMORY LIKE SJ
[解决办法]
一维可以,二维需要你自己写循环处理
一维:
alines(aTemp, "A=b;C=d;e=f", 1+2+4, ';')
? aTemp[1], aTemp[2], aTemp[3]