Board logo

标题: [问题求助] 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 编辑
  1. Set fso = Createobject("Scripting.FileSystemObject")
  2. Set file = fso.OpenTextFile("1.txt")
  3. Set re = New RegExp
  4. re.Pattern = "^\S+(\s+\S+\s+([036]).*)"
  5. while Not file.AtEndOfStream
  6.         s = Trim(file.ReadLine)
  7.         If re.Test(s) Then
  8.                 Set m = re.Execute(s)(0)
  9.                 s = Int(m.SubMatches(1)/6) & m.SubMatches(0)
  10.         End If
  11.         str = str & s & vbCrLf
  12. wend
  13. fso.OpenTextFile("2.txt", 2, true).Write str
复制代码

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

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

-----------------------------------------------------
  1. 题:请教老师!!vbs代码能实现这功能吗?
  2. 答:能。
复制代码
这算不算100分的答案?
作者: hnldwhm52    时间: 2015-1-24 14:07

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


谢谢apang老师解答!!!
作者: CrLf    时间: 2015-1-24 18:14

回复 4# hnldwhm52


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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2