标题: [问题求助] VBS如何在txt文本每一行末尾添加指定字符串 [打印本页]
作者: hnldwhm52 时间: 2015-1-15 11:34 标题: VBS如何在txt文本每一行末尾添加指定字符串
本帖最后由 pcl_test 于 2016-9-13 20:12 编辑
请教老师?
将e:\as\1.txt内容, 实现e:\as\2.txt内容功能的vbs代码。
1.txt
122.107.154.173:19100
165.228.123.172:31749
99.252.60.163:26128
178.63.78.5:2932
95.62.132.34:32861
2.txt
122.107.154.173:19100@SOCKS4
165.228.123.172:31749@SOCKS4
99.252.60.163:26128@SOCKS4
178.63.78.5:2932@SOCKS4
95.62.132.34:32861@SOCKS4
谢谢老师!!!!
作者: czjt1234 时间: 2015-1-16 09:05
批处理- @echo off
- (for /f %%i in (1.txt) do echo %%i@SOCKS4)>2.txt
复制代码
作者: hnldwhm52 时间: 2015-1-16 09:25
批处理
czjt1234 发表于 2015-1-16 09:05
谢谢czjt1234老师旳解答!我需要旳是VBS代码,能给出VBS代码就更好!!
作者: CrLf 时间: 2015-1-17 00:27
来个简单但不严谨的- Set fso = CreateObject("Scripting.FileSystemObject")
- text = fso.OpenTextFile("1.txt",1).ReadAll()
- text = Replace(text,vbCrLf,"@SOCKS4"&vbCrLf)
- text = Replace(text,vbCrLf&"@SOCKS4",vbCrLf)
- fso.CreateTextFile("2.txt",True).Write(text)
复制代码
再来个稍微严谨点的- Set fso = CreateObject("Scripting.FileSystemObject")
- text = fso.OpenTextFile("1.txt",1).ReadAll()
- arr = Split(text,vbCrLf)
- For i=0 To UBound(arr)
- If Len(arr(i)) Then arr(i)=arr(i)&"@SOCKS4"
- Next
- text = Join(arr,vbCrLf)
- fso.CreateTextFile("2.txt",True).Write(text)
复制代码
其实还是用正则比较好,但 vbs 的正则懒得写
作者: hnldwhm52 时间: 2015-1-17 09:48
本帖最后由 hnldwhm52 于 2015-1-17 12:09 编辑
回复 4# CrLf
谢谢老师CrLf旳细心解答!
作者: Demon 时间: 2015-1-17 10:01
连别人名字打打错。
作者: hnldwhm52 时间: 2015-1-17 12:12
回复 6# Demon
谢谢您旳指正!!
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |