| 发表于:2007-12-25 08:37:122楼 得分:0 |
简单: dim strsource as string, strtmp as string, strfields() as string, i as integer strsource = "0 |% |chq200700190445 |% |肖先禄 |% |201 |% |0 |% |510231197012263973 |% |" strtmp = replace(strsource, " ¦% ", "") strtmp = replace(strsource, space(1), "") strfields = split(strtmp, " ¦") for i = 0 to ubound(strfields) debug.print strfields(i), next i debug.print "" | | |
|