主题：如何在文本文件的每一行前面插入新的字符
tql1991
[专家分：0] 发布于 2008-08-26 08:48:00
[em7]如何在文本文件的每一行前面增加新的字符
向高手学习向你请教！谢谢有会的给解答一下呀！
如有一个文体文件A.TXT
文件内容如：
上海
北京
南京
沈阳
如何在每一行前面都插入一个新的字符如：20080808
结果如:
20080808上海
20080808北京
20080808南京
20080808沈阳
回复列表 （共7个回复）
沙发
yzzd2167 [专家分：550] 发布于 2008-08-26 09:39:00
CD 'A.TXT所在的路徑'
OLD_STR = FILETOSTR('A.TXT')
NEW_STR = STRTRAN(OLD_STR, CHR(13)+CHR(10), CHR(13)+CHR(10)+'20080808')
NEW_STR = '20080808' + NEW_STR
STRTOFILE(NEW_STR,'A1.TXT')
板凳
cbl518 [专家分：57140] 发布于 2008-08-26 12:19:00
cfile = '路径\A.TXT'
STRTOFILE('20080808' +STRTRAN(FILETOSTR(cfile), CHR(10), CHR(10)+'20080808'),cfile)
3 楼
tql1991 [专家分：0] 发布于 2008-08-27 08:36:00
谢谢,试了一下!能在每行字符的前面加上,但为什么文本的最后一行无字符空白的前面也有20080808呀,不想要呀,只要有字符的每一行前面加呀[em7]
4 楼
yzzd2167 [专家分：550] 发布于 2008-08-27 11:57:00
那是因為你的txt文檔在最後又回車產生了一個新行，可以修改判斷一下：
CD 'A.TXT所在的路徑'
OLD_STR = FILETOSTR('A.TXT')
NEW_STR = STRTRAN(OLD_STR, CHR(13)+CHR(10), CHR(13)+CHR(10)+'20080808')
NEW_STR = '20080808' + NEW_STR
IF RIGHT(NEW_STR, 8) = '20080808'
NEW_STR = LEFT(NEW_STR, LEN(NEW_STR) - 8)
ENDIF
STRTOFILE(NEW_STR,'A1.TXT')
動動腦，多思考，不要等別人替你都搞好！
：）
5 楼
cbl518 [专家分：57140] 发布于 2008-08-27 12:20:00
cfile = '路径\A.TXT'
STRTOFILE('20080808' +STRTRAN(TRIM(FILETOSTR(cfile),1,CHR(10)), CHR(10), CHR(10)+'20080808'),cfile)
6 楼
x521516 [专家分：200] 发布于 2008-08-27 12:35:00
不用这么麻烦吧
直接用Excel打开文本文件，然后用&符号来加就行了
然后保存出来即可
7 楼
yzzd2167 [专家分：550] 发布于 2008-08-28 12:37:00
這樣講的話，用uedit32的區塊編輯模式更快。
我来回复
您所在位置：