鱼C论坛

 找回密码
 立即注册
查看: 2803|回复: 7

[已解决]求助。关于文本处理问题。

[复制链接]
发表于 2015-4-6 14:35:16 | 显示全部楼层 |阅读模式
20鱼币
遇到个问题,文本处理怎么弄,
比如文本是  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
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 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
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2015-4-6 17:14:21 | 显示全部楼层
额。。。你还用vb。。。。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2015-4-6 19:39:26 | 显示全部楼层
{:1_1:}
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2015-4-9 15:32:39 | 显示全部楼层

这是VBS脚本么,,咋运行不了呢??
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2015-4-12 20:01:03 | 显示全部楼层
{:1_1:}
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2015-4-16 10:14:44 | 显示全部楼层
失心控丶 发表于 2015-4-9 15:32
这是VBS脚本么,,咋运行不了呢??

测试成功..我才发了.......
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2016-8-15 15:04:28 | 显示全部楼层
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-7-9 23:47

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表