[问题求助] vbs如何实现根据文本指定列的第一个字符将同行第一列的内容/数据修改/替换成其他内容

hnldwhm52

请教老师!!vbs代码能实现这功能吗?谢谢apang老师解答！！！
    根据1.txt的每行第三列第一个字符如果是6就将每行第一列中置数为1，如果是0或是3就将每行第一列中置数为0； 实现
2.txt内容功能的vbs代码。

1.txt
a        300321        300321
a        912                000912
a        600297        600297
a        810                000810
a        600433        600433
a        300412        300412
a        300135        300135
a        600626        600626
a        601601        601601
a        600711        600711
a        2306        002306
a        600676        600676
a        601727        601727


2.txt
0        300321        300321
0        912                000912
1        600297        600297
0        810                000810
1        600433        600433
0        300412        300412
0        300135        300135
1        600626        600626
1        601601        601601
1        600711        600711
0        2306        002306
1        600676        600676
1        601727        601727


          谢谢！！！！

CrLf

回复 4# hnldwhm52


    同意 3 楼观点，请楼主下次注意

hnldwhm52

apang 发表于 2015-1-24 11:50

谢谢apang老师解答！！！

yu2n

能不能好好发帖？有没有素养？
——又是这种标题与内容，屡教不改，真是极品。
标题含糊，一看就不想点进来。
全文内容使用加粗超大红色字体，是要亮瞎别人的眼睛么！我下次再点进来就剁手。

-----------------------------------------------------

题：请教老师!!vbs代码能实现这功能吗?
答：能。
复制代码

这算不算100分的答案？

apang

Set fso = Createobject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("1.txt")
Set re = New RegExp
re.Pattern = "^\S+(\s+\S+\s+([036]).*)"
while Not file.AtEndOfStream
        s = Trim(file.ReadLine)
        If re.Test(s) Then
                Set m = re.Execute(s)(0)
                s = Int(m.SubMatches(1)/6) & m.SubMatches(0)
        End If
        str = str & s & vbCrLf
wend
fso.OpenTextFile("2.txt", 2, true).Write str
复制代码