[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 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


          谢谢!!!!
1

评分人数

回复 4# hnldwhm52


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

TOP

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


谢谢apang老师解答!!!

TOP

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

-----------------------------------------------------
  1. 题:请教老师!!vbs代码能实现这功能吗?
  2. 答:能。
复制代码
这算不算100分的答案?
2

评分人数

    • CrLf: 亮瞎+1技术 + 1
    • apang: 100分,同意技术 + 1
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

本帖最后由 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
复制代码
1

评分人数

    • hnldwhm52: 谢谢apang老师解答!!!技术 + 1

TOP

返回列表