主题：[讨论]如何把所需要字符的那行都放在一个新的文件中
tql1991
[专家分：0] 发布于 2008-09-24 11:29:00
如有一个文体文件c13045.TXT
文件内容如：
请看上传的文件！！！！！！！！！！
选定每行开头的０１０２的
产生一个新文本文件A1
我写了两句下面不知怎么写了,请高手帮忙一下!谢谢
NEW_STR = FILETOSTR('c13045.TXT')
IF RIGHT(NEW_STR, 4) = '0102'
最后更新于：2008-09-28 17:17:00
回复列表 （共6个回复）
沙发
cbl518 [专家分：57140] 发布于 2008-09-25 07:57:00
希望你能够将 txt 文件上传！！！
板凳
hw2007name [专家分：4790] 发布于 2008-09-27 21:40:00
文件内容如：
2008上海
2007北京
2008南京
2006沈阳
是不是每个内容都是换行了的.如果是我给一个代码如下:
cRowStr=""
cWriteStr=""
NEW_STR = FILETOSTR('A.TXT')
ROWBZ_STR=CHR(13)+CHR(10)
FOR I=1 TO GETWORDCOUNT(NEW_STR,ROWBZ_STR)
cRowStr=GETWORDNUM(NEW_STR,I,ROWBZ_STR)
IF RIGHT(cRowStr,4) == '2008'
cWriteStr=cWriteStr+cRowStr+ROWBZ_STR
ENDIF
ENDFOR
=STRTOFILE(cWriteStr,"D:\A1.TXT")
3 楼
tql1991 [专家分：0] 发布于 2008-09-28 17:12:00
不好用呀,生成的A1.TXT文件为空，什么也没有呀
4 楼
tql1991 [专家分：0] 发布于 2008-09-28 17:19:00
我发了一个文本附件请老师再给看看呀！谢谢
5 楼
hw2007name [专家分：4790] 发布于 2008-09-28 19:13:00
cRowStr=""
cWriteStr=""
NEW_STR = FILETOSTR('A.TXT')
ROWBZ_STR=CHR(13)+chr(10)
FOR I=1 TO GETWORDCOUNT(NEW_STR,chr(10))
cRowStr=GETWORDNUM(NEW_STR,I,chr(10))
IF left(cRowStr,4) == '0102'
cWriteStr=cWriteStr+cRowStr+ROWBZ_STR
ENDIF
ENDFOR
=STRTOFILE(cWriteStr,"D:\A1.TXT")
6 楼
tql1991 [专家分：0] 发布于 2008-10-08 21:08:00
谢谢,试了好用了!你真历害呀,你是怎么玩得这么好呀
我来回复
您所在位置：