怎样大量修改文本内容？
迪丽瓦拉
2025-06-12 07:03:21
0次
怎样大量修改文本内容？
找个会编程的，10分钟搞定
貌似只有编程了
内容都一样的话可以重新生成一批～
大量文本的话用VBS吧，效率比批处理高：
'******************************************************
Const ForWriting = 2
Const ForReading = 1
' 以下路径按实际更改
strFolder = "e:\temp"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
'******************************************************
For Each objFile in colFiles
Set strFile = FSO.OpenTextFile(objFile)
If not strFile.AtEndOfStream Then
strLines = strFile.ReadAll
End If
strFile.Close
strNum = Left(objFile.Name, Len(objFile.name) - 4)
strNewString = Replace(strLines, "000",strNum)
Set strFile = FSO.OpenTextFile(objFile, ForWriting)
strFile.Write strNewString
strFile.Close
Next
'******************************************************
Set FSO = Nothing
Wscript.Quit
找个会编程的，10分钟搞定
貌似只有编程了
内容都一样的话可以重新生成一批～
大量文本的话用VBS吧，效率比批处理高：
'******************************************************
Const ForWriting = 2
Const ForReading = 1
' 以下路径按实际更改
strFolder = "e:\temp"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
'******************************************************
For Each objFile in colFiles
Set strFile = FSO.OpenTextFile(objFile)
If not strFile.AtEndOfStream Then
strLines = strFile.ReadAll
End If
strFile.Close
strNum = Left(objFile.Name, Len(objFile.name) - 4)
strNewString = Replace(strLines, "000",strNum)
Set strFile = FSO.OpenTextFile(objFile, ForWriting)
strFile.Write strNewString
strFile.Close
Next
'******************************************************
Set FSO = Nothing
Wscript.Quit
相关内容
热门资讯
云南亮相2025中国国际旅交会...
云南网海口专电（记者朱海）12月19日，由文化和旅游部主办的2025中国国际旅游交易会在海南国际会展...
文化赋能 旅游提质 陕西神木以...
回首“十四五”，在建设黄河“几字弯”城市群高质量发展示范市的壮阔图景中，神木市紧紧围绕“一山二水三城...
冷空气明晚杀到！暴跌10℃！入...
滑雪季速来体验天气预报显示，明天（12月20日）全天气温在13℃-20℃之间，晚上冷空气杀到！周日天...
前10个月，南京接待境内外游客...
现代快报讯（记者 胡玉梅/文）这个秋冬，南京旅游市场持续“高热”。12月19日，南京市文旅局公布数据...
三亚西岛景区被指“拍摄垄断”，...
▲三亚西岛景区被指“拍摄垄断”：游客自带约拍摄影师遭景区驱离，景区称“只能用景区摄影师拍摄”。图/大...
红谷滩香港推介会圆满落幕
来源：周口网2025年12月16日,“天下英雄城 万象红谷滩”南昌红谷滩(香港)文旅推介会在香港隆重...
舟行碧波上 人在画中游
冬日时节，在湖北省恩施土家族苗族自治州鹤峰县容美镇屏山峡谷景区，阳光穿过幽深的峡谷，将蜿蜒的“一...
新晋顶流“哈尔滨极地公园狮子小...
黑龙江网讯（记者 石启立）12月18日，哈尔滨极地公园正式免费开放文旅界新晋顶流——狮子“小毛”...
海南自贸港封关利好旅游业：元旦...
12月18日，海南自由贸易港正式启动全岛封关，有望推动海南旅游业向“国际化、高端化、多元化”跨越，成...
闭园！西安一景区发布公告
来源：起点新闻12月18日秦岭国家植物园发布冬季闭园公告尊敬的游客朋友们：受冬季天气降温影响，园区内...
巴黎大区首条缆车投入运行
大巴黎地区首条城市缆车线路正式投入运营。图源：欧时大巴黎地区的首条城市缆车——“C1”线近日在瓦勒德...
文旅赋能耀七星
本文转自：人民网-贵州频道文旅赋能耀七星——贵州省毕节市七星关区2025年文体广电旅游事业发展描述民...
北京周末可往返！赏冰雪、涮暖锅...
北京京郊玉渡山迎来冬日美景冰瀑冰挂齐齐上线好似一个晶莹剔透的冰雪童话世界周末约上家人好友一起去玉渡山...
汇阳投顾怎么申请退款？真实经历...
汇阳投顾怎么申请退款？真实经历：荐股全是坑，这样做已成功退费！ 投资有风险，投资需谨慎！针对网上素未...
海能投顾服务费可以退吗？收费服...
海能投顾服务费可以退吗？收费服务藏“陷阱”！多位股民吃亏后成功退费止损 投资有风险，投资需谨慎！针对...
九方智投服务费怎么退？公开流程...
九方智投服务费怎么退？公开流程是神器，步骤清晰，股民少走弯路！ 投资有风险，投资需谨慎！针对网上素未...
北京第①份围炉煮茶指南来了！—...
来源：环球网文旅频道我的生活我做“煮”，到这些地方去，有文化味，有烟火气，赴一场围炉煮茶之约，感受北...
汇正财经29800跟投靠谱吗？...
汇正财经29800跟投靠谱吗？股民亲述：“教学服务”没效果，这样做费用全回 投资有风险，投资需谨慎！...
中富金石的收费股靠谱吗？收费荐...
中富金石的收费股靠谱吗？收费荐股陷阱大曝光！股民一定要擦亮眼睛！ 投资有风险，投资需谨慎！针对网上素...
上海九方智投余扬怎么样？收费服...
上海九方智投余扬怎么样？收费服务藏“陷阱”！多位股民吃亏后成功退费止损 投资有风险，投资需谨慎！针对...