足球游戏_中国足彩网¥体育资讯$

vbs解决处理TXT文本数据相关问题实现代码
来源:易贤网 阅读:1106 次 日期:2016-07-05 11:17:24
温馨提示:易贤网小编为您整理了“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

中国足彩网信息请查看脚本栏目
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标