标题: 分割字符串问题? [打印本页] 作者: dreamgengs 时间: 2013-1-9 20:13 标题: 分割字符串问题? //**********从本机文本文件读取信息**********
t=1:s=0
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile("C:\Program Files\zdhjy\one.txt", 1)
坐标字符串=f.ReadAll
f.Close
For len(坐标字符串)
单个坐标=Mid(坐标字符串,t,1)
If asc(单个坐标)=13 Then
t=t+1:s=s+1
Else
t=t+1:sjzb(s)=sjzb(s)&单个坐标
End If
Next