[问题求助] VBS如何在txt文本每一行末尾添加指定字符串

hnldwhm52

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

批处理

@echo off
(for /f %%i in (1.txt) do echo %%i@SOCKS4)>2.txt
复制代码

hnldwhm52

批处理
czjt1234 发表于 2015-1-16 09:05

谢谢czjt1234老师旳解答！我需要旳是VBS代码，能给出VBS代码就更好！！

CrLf

来个简单但不严谨的

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

回复 4# CrLf


     谢谢老师CrLf旳细心解答！

Demon

连别人名字打打错。

hnldwhm52

回复 6# Demon

谢谢您旳指正！！