[已解决]批处理怎样替换文本内容？

bingxing8000

1.txt的内容如下
192.168.1.1
192.168.1.2
192.168.1.3

1.vbs的内容如下：

1. Set objEmail = CreateObject("CDO.Message")
   
2. 
   
3. objEmail.From = "*" '发件人
   
4. objEmail.To = "*" '收件人
   
5. objEmail.Subject = "*" '主题
   
6. objEmail.Textbody = "*" '内容
   
7. 
   
8. objEmail.Configuration.Fields.Item _
   
9.     ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   
10. objEmail.Configuration.Fields.Item _
    
11.     ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
    
12.         "smtp.adpanshi.com"
    
13. objEmail.Configuration.Fields.Item _
    
14.     ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*" '用户名
    
15. objEmail.Configuration.Fields.Item _
    
16.     ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*" '密码
    
17. objEmail.Configuration.Fields.Item _
    
18.     ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '明文验证
    
19. objEmail.Configuration.Fields.Item _
    
20.     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    
21. objEmail.Configuration.Fields.Update
    
22. objEmail.Send

复制代码

如何用1.txt里的所有内容 替换1.vbs里 objEmail.Textbody = "*" '内容  *号的内容？

ArdentMan

1. 
   
2. objEmail.Textbody = CreateObject("Scripting.FileSystemObject").OpenTextFile("1.txt").ReadAll() '内容
   

复制代码

bingxing8000

回复 2# ArdentMan


    可以使用的，谢谢。
vbs很强大啊