主题：txt 文件加换行符和回车健
cagd
[专家分：410] 发布于 2009-08-05 20:36:00
有１个 a.txt 文件如下：每行都超过３００个字符．
111111111111111111111 Ｙ 66666666666666666666
8888888888888888 Ａ 555555555555555555555
999999999 ６５１０ 22222222222222
想在 ＂Ｙ＂ ＂Ａ＂ ＂６５１０＂ 等字符前面加换行符和回车健，变成如下txt 表：
111111111111111111111
Y 66666666666666666666
8888888888888888
A 555555555555555555555
999999999
6510 22222222222222
请问代码如何写，谢谢！
回复列表 （共4个回复）
沙发
qjbzjp [专家分：8830] 发布于 2009-08-05 21:57:00
n="111111111111111111111 Ｙ 66666666666666666666;
8888888888888888 Ａ 555555555555555555555;
999999999 ６５１０ 22222222222222"
n1=STRTRAN(n,"Ｙ",CHR(13)+CHR(10)+"Ｙ")
n2=STRTRAN(n1,"Ａ",CHR(13)+CHR(10)+"Ａ")
n3=STRTRAN(n2,"６５１０",CHR(13)+CHR(10)+"６５１０")
n4=STRTRAN(n3,"68","6"+CHR(13)+CHR(10)+"8")
n5=STRTRAN(n4,"59","5"+CHR(13)+CHR(10)+"9")
?n5
板凳
cagd [专家分：410] 发布于 2009-08-07 00:19:00
111111111111111 6510100001 222222222222
3333333333 6510 444444444444444
如果想将前面带有"空格"加"6510"开头,并且大于6510100000 的字符前面加换行符和回车健的
代码如何写?象上面2行txt内容变为以下3行txt内容：
111111111111111
6510100001 222222222222
3333333333 6510 444444444444444
3 楼
sywzs [专家分：5650] 发布于 2009-08-07 12:32:00
zfc="111111111111111 6510100001 222222222222"+chR(10)+chR(13)+"3333333333 6510 444444444444444"
zfc=STRTRAN(zfc,IIF(val(SUBSTR(zfc,AT(" 6510",zfc),11))>6510100000,SUBSTR(zfc,AT(" 6510",zfc)+1,5)," "),IIF(val(SUBSTR(zfc,AT(" 6510",zfc),11))>6510100000,CHR(10)+CHR(13)-SUBSTR(zfc,AT(" 6510",zfc)+1,5)," "))
4 楼
cagd [专家分：410] 发布于 2009-08-07 13:55:00
SET SAFETY OFF
zfc=FILETOSTR("C:\1.txt")
n1=STRTRAN(zfc,IIF(val(SUBSTR(zfc,AT(" 6510",zfc),11))>6510100000,SUBSTR(zfc,AT(" 6510",zfc)+1,5)," "),IIF(val(SUBSTR(zfc,AT(" 6510",zfc),11))>6510100000,CHR(10)+CHR(13)-SUBSTR(zfc,AT(" 6510",zfc)+1,5)," "))
STRTOFILE(n1, "C:\1.txt")
运行后得不到正确结果.
在VF窗口是正确,但是在txt文件里显示不正确．
我来回复
您所在位置：