vbs解决处理TXT文本数据相关问题实现代码
字体：[ ] 类型：转载 时间：
使用vbs处理txt数据时，会遇到一些问题，本文将提供详细的解决方法，希望可以帮助你们
有个小问题，如下： 现有文本文件1.txt，内容如下： 数值_1出现频度12647 数值_2出现频度10000 数值_3出现频度12608 数值_4出现频度8712 数值_5出现频度10658 数值_6出现频度8472 数值_7出现频度11232 数值_8出现频度8648 数值_9出现频度9264 数值_10出现频度7192 数值_11出现频度7192 。。。。 大概有100行 要求把里面每行的数值放到变量中，然后输出成文本文件 2.txt 举例： 把第一行的12674，放到变量a1中 把第二行的10000，放到变量a2中 把第三行的12608，放到变量a2中 ….直到最后一行 最后输出成“2.txt” 文本文件的内容为： a1 = 12647 a2 = 10000 a3 = 12608 a4 = 8712 …. a11 = 7192 希望能能够找到相关代码，并且是能在windows下运行的！！找呀找呀找呀。。 实现代码如下： VB code:
代码如下: set fso = createobject("scripting.filesystemobject") set file=fso.opentextfile("1.txt") ts = file.readall file.close set fil = fso.createtextfile("2.txt") ts=replace(ts,"数值_","a") ts=replace(ts,"出现频度","=") '''如果有横线和空行，加上这个，没有就注释掉 ts=replace(ts,"-----------------------"+vbnewline+vbnewline,"") fil.write ts fil.close MsgBox "处理完成"上面的代码是把1.txt直接改成了2.txt，中间变量a1~a100省去了，如果还需要中间变量做其它用途的话，可以读取2.txt内容并赋值，代码如下： VBScript code: set fso = createobject("scripting.filesystemobject") set ts = fso.opentextfile("2.txt") i=0 do while ts.AtEndOfStream=false str = ts.ReadLine execute str '执行赋值 i=i+1 execute("value=a" & i)'获取变量 a1…… 的值 Response.Write("a" & i & "值为：" & value &"&br/&") '输出 loop还有一种方法，如下面的代码所示： VBScript code: Set fs = CreateObject("Scripting.FileSystemObject") Set txt1 = fs.OpenTextFile("1.txt", 1) Set txt2 = fs.CreateTextFile("C:\FSO\ScriptLog.txt") Do Until txt1.AtEndOfStream str_a = txt1.ReadLine str_a = replace(str_a, "度","$") str_ar = split(str_a, "$") if isnumeric(str_ar(ubound(str_a))) then txt2.writeline str_ar(ubound(str_a)) end if Loop txt1.close txt2.close set txt1 = nothing set txt2 = nothing set fs = nothing
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具VBS读取文本文件函数ReadTextFile
VBS读取文本文件函数ReadTextFile
━━━━━━━━━━━━━━━━━━━━━━━━━
读取文本文件的自定义函数，据说可以自动判断无BOM的UTF -
Function&ReadTextFile(Path)
&&&&'Author&次碳酸钴
&&&&'This&Function&is&useful&for&no&BOM&UTF-8
&&&&on&Error&Resume&Next
&&&&Dim&Size,Text,Charset
&&&&With&CreateObject("ADODB.Stream")
&&&&&&&&.Open:.Type
1:.LoadFromFile&Path
&&&&&&&&Size
= .Size:If&Size = 0&Then&Exit&Function
&&&&&&&&If&AscB(.Read(1))
&& 239&Then&Size = Size + 3
&&&&&&&&.Position
= 2:.Charset = "UTF-8"
&&&&&&&&Err.Clear
&&&&&&&&Text
= .ReadText
&&&&&&&&If&Err.Number&Then
&&&&&&&&&&&&Charset
= "Unicode"
&&&&&&&&Else
&&&&&&&&&&&&.Close:.Open
&&&&&&&&&&&&.WriteText&Text
&&&&&&&&&&&&If&Size
.Size&Then
&&&&&&&&&&&&&&&&Charset
&&&&&&&&&&&&Else
&&&&&&&&&&&&&&&&Charset
&&&&&&&&&&&&End&If
&&&&&&&&End&If
&&&&&&&&.Close:.Open:.Type
1:.LoadFromFile&Path
&&&&&&&&.Position
= 2:.Charset = Charset
&&&&&&&&ReadTextFile
= .ReadText
&&&&End&With
End&Function
Demon注：仅为复制粘贴，未分析测试，不保证正确性，使用前请自行斟酌。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。1被浏览460分享邀请回答暂时还没有回答，开始写第一个回答每日登录：+1西币&+1积分
&下次自动登录
绑定第三方账号登录 & & &
扫描二维码登录支持中心移动端
获取动态密码
售前文档售后文档热门视频系列热门版区售后服务概述自助服务帮助信息
You are here:
wincc中怎样用vbs脚本创建txt文...
热点活动：
置评已完成，谢谢！
您现在可以为该问题添加标签。
wincc中怎样用vbs脚本创建txt文档？并写入一句话？ - 已解决问题
自己参照网上的帖子写了一段程序，没有报错，但是要写入的txt文档中没有找到我要写入的字符串，大家帮忙看一下哪块出问题了？Sub&OnClick(ByVal&Item)&&&&&&&&&&&&&&&&&&&&&&&Const&ForReading=1,ForWriting=2&&&&&Set&fso=CreateObject(&Scripting.FileSystemObject&)Set&f=fso.OpenTextFile(&c:\wincclog.txt&,ForWriting,True)f.Write&hello&Set&f=fso.OpenTextFile(&c:\wincclog.txt&,ForReading)ReadAllTextFile=f.ReadAll&&&End&Sub
产品版区：
悬赏分:5 | 解决时间： 09:02:39 | 提问者：& - 新生&nbsp&nbsp第1级
问题ID：52020
dim&aset&a=createobject(wscript.shell)a.run&notepad&wscript.sleep&1000a.appactivate&无标题－记事本&a.sendkeys&你想输入的话&
高级技术员&nbsp&nbsp第7级&
以下网友赞了您的问题：
填写您的评论...
提问者对于答案的评价：谢谢您的回答.我的问题解决了,不过还是用我自己的程序,由于原来的程序是直接从网站拷到脚本窗口上的,我只是把关键的部分自己重写了一遍就好用了,不知道到底问什么
看了这个问题的网友还看了
本版相关问题
本版精华问答
等您来回答
作者/最新回复
最后回复时间
&&另外确认下是二进制写入的话,是直接看不到的,写入后只能发现文件容量变大.用二进制读是可以读出来的.
- 初级工程师&nbsp&nbsp第9级
& 10:20:47
- 资深学长&nbsp&nbsp第3级
& 14:41:35
上一页1下一页&
扫描打开手机版
支持中心新发布“关注”功能了！实时查看彼此动态，更方便地进行技术交流。
不管是“关注”与“被关注”，相信都是一个美好的开始！
还有多重奖励派送，快快行动起来吧！
20秒帮我们优化支持中心！
欢迎您访问支持中心！
丰富的视频，全方位的文档，大量的网友交流精华……
为了更好的完善这些内容，我们诚邀您在浏览结束后，花20秒左右的时间，完成一个用户在线调查！
感谢您的支持！
欢迎您来到找答案
在“找答案”，已有超过7万个被解决的技术问题供您参考！
西门子技术专家亲自把关！常规的，简单的问题，在这里您都可以找到答案！
遇到了问题，就来“找答案”提问。
点击搜索框右侧的提问按钮，只需2步就能成功提交问题！分分钟就有无数大侠前来帮你。
在“找答案”每天都有大量的新问题。
别犹豫，只需要点击问题下方的“我要回答”就能参与。答题不光有积分相送，也会给您积攒大侠人气。
“找答案”定期开展各种有奖活动期待您的参与。
更有机会参加西门子高端用户峰会。领略西门子的博大精深！如何让VBS读取并执行TXT内容？_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
如何让VBS读取并执行TXT内容？
假若A.TXT文本里面有一条命令 要能执行VBS之后 能够读取到A.TXT内的这条命令并执行命令
就一段批处理就可以执行的命令 比如a.exe 想实现VBS调用BAT的效果 但希望用TXT取代BAT
我有更好的答案
如果是要做一个新的解释器的话&可以给你一个思路&但是离开了vbs什么都用不来哦逐行读取文本命令并进行判断执行相应的命令操作txt文件里面的是什么脚本语言的命令
TXT文本内是批处理命令
原来是如此啊。。。
你可以直接将txt文件与cmd程序关联在一起 或者在桌面新建一个cmd快捷方式 将要运行的txt命令文件拖到图标上就可以运行了 但是 如果是要发送给别人 那还是算了吧。。。
createobject(&wscript.shell&).run&&a.exe&
少年你想做编译器换一种语言吧.....VB都比你这个强大！
为您推荐：
其他类似问题
vbs的相关知识
等待您来回答