批处理之家 - Powered by Discuz! Board

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

作者: hnldwhm52 时间: 2015-1-24 10:06 标题: vbs如何实现根据文本指定列的第一个字符将同行第一列的内容/数据修改/替换成其他内容

本帖最后由 pcl_test 于 2016-9-13 19:34 编辑

请教老师!!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

      谢谢！！！！

作者: apang 时间: 2015-1-24 11:50

本帖最后由 apang 于 2015-1-24 13:07 编辑

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
复制代码

作者: yu2n 时间: 2015-1-24 12:45

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

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

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

这算不算100分的答案？

作者: hnldwhm52 时间: 2015-1-24 14:07

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

谢谢apang老师解答！！！

作者: CrLf 时间: 2015-1-24 18:14

回复 4# hnldwhm52

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

欢迎光临批处理之家 (http://bathome.net./)