1,488
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
nydelphi 2003-02-05
- 打赏
- 举报
up
nydelphi 2003-02-05
- 打赏
- 举报
就是从文本中取资料
如果文本中有好几段的话.
取了第一段,如何在取第二段
如果文本中有好几段的话.
取了第一段,如何在取第二段
nydelphi 2003-02-05
- 打赏
- 举报
up
lilimaoming 2003-02-05
- 打赏
- 举报
dim tagname(1000)
MYTXT="ABCD"
tag_sum = 1
Open "tags.txt" For Input Access Read Lock Read As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, tagname(tag_sum) ' 将数据读入变量。
IF INSTR(1,tagname(tag_sum),MYTXT)>0 THEN
EXIT DO
ENDIF
tag_sum = tag_sum + 1
Loop
Close #1 ' 关闭文件。
DEBUG.PRITNT tag_sum
MYTXT="ABCD"
tag_sum = 1
Open "tags.txt" For Input Access Read Lock Read As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, tagname(tag_sum) ' 将数据读入变量。
IF INSTR(1,tagname(tag_sum),MYTXT)>0 THEN
EXIT DO
ENDIF
tag_sum = tag_sum + 1
Loop
Close #1 ' 关闭文件。
DEBUG.PRITNT tag_sum
