失心控丶 发表于 2015-4-6 14:35:16

求助。关于文本处理问题。

遇到个问题，文本处理怎么弄，
比如文本是xxxx xxxxxxx @@ ·············


每行都有这个@@想把@@包括后面的内容删除，每行。不是一行 或者几行


是很多行的。

希望好心人，大牛，基友们帮我写个，，用易语言   批处理VBS等等都行。

向往青莲 发表于 2015-4-6 14:35:17

filename="123.txt" '这个是需要处理的文件
Wfilename = "write.txt" '这个是处理之后保存的文件
Dim text,filename,count,Wfilename,ss
Set obj = CreateObject("Scripting.FileSystemObject")
set Wobj = CreateObject("scripting.filesystemobject")
set Wfile = Wobj.OpenTextFile(Wfilename, 2, true)
Set file = obj.OpenTextFile(filename,1)
Do Until file.AtEndOfStream
text = file.ReadLine
ss = Split(text,"@@")
Wfile.write ss(0)
Wfile.write vbcrlf
count=count+1
Loop
file.Close

782981223 发表于 2015-4-6 17:14:21

额。。。你还用vb。。。。

taochen 发表于 2015-4-6 19:39:26

{:1_1:}

失心控丶 发表于 2015-4-9 15:32:39

向往青莲 发表于 2015-4-9 12:41


这是VBS脚本么，，咋运行不了呢？？

taochen 发表于 2015-4-12 20:01:03

{:1_1:}

向往青莲 发表于 2015-4-16 10:14:44

失心控丶 发表于 2015-4-9 15:32
这是VBS脚本么，，咋运行不了呢？？

测试成功..我才发了.......

千亩计者 发表于 2016-8-15 15:04:28

{:7_122:}
页: [1]
查看完整版本: 求助。关于文本处理问题。