返回列表 发帖
hnldwhm52

Rank: 1

帖子
63 
积分
15 
技术
0  
捐助
0  
注册时间
2014-9-11 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2015-1-16 09:05 | 只看该作者
批处理
@echo off
(for /f %%i in (1.txt) do echo %%i@SOCKS4)>2.txtCOPY
1

评分人数

    • hnldwhm52: 谢谢czjt1234老师旳解答！我需要旳是VBS代码 ...技术 + 1

QQ 20147578

TOP

hnldwhm52

Rank: 1

帖子
63 
积分
15 
技术
0  
捐助
0  
注册时间
2014-9-11 
3楼
发表于 2015-1-16 09:25 | 只看该作者
批处理
czjt1234 发表于 2015-1-16 09:05

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

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
4楼
发表于 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)COPY
再来个稍微严谨点的
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)COPY
其实还是用正则比较好，但 vbs 的正则懒得写
1

评分人数

    • hnldwhm52: 谢谢url老师旳细心解答！技术 + 1
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

hnldwhm52

Rank: 1

帖子
63 
积分
15 
技术
0  
捐助
0  
注册时间
2014-9-11 
5楼
发表于 2015-1-17 09:48 | 只看该作者
本帖最后由 hnldwhm52 于 2015-1-17 12:09 编辑

回复 4# CrLf


     谢谢老师CrLf旳细心解答！

TOP

Demon

Rank: 5Rank: 5

帖子
766 
积分
1457 
技术
119  
捐助
0  
注册时间
2010-5-12 
6楼
发表于 2015-1-17 10:01 | 只看该作者
连别人名字打打错。
http://demon.tw

TOP

hnldwhm52

Rank: 1

帖子
63 
积分
15 
技术
0  
捐助
0  
注册时间
2014-9-11 
7楼
发表于 2015-1-17 12:12 | 只看该作者
回复 6# Demon

谢谢您旳指正！！

TOP

返回列表