2013-03-25 43 views
0

簡版:我知道有沒有一種簡單的方法來做到這一點,但我如何更改命令文件中的行與VB?如何使用VB讀取和更改命令腳本中的行?

Long:在登錄腳本中工作,該登錄腳本將根據用戶名(最終)爲特定用戶填充RDP文件(IE:[email protected]轉至 完整地址:s:blahdeblah.blahdeblah.com和等等)。地址第一部分中的多個服務器位置。我已經完成了拉取文件,捕獲用戶名和他們應該去哪裏的簡單部分,但我缺乏關於如何填充文件的知識。我在這裏看到了一些關於閱讀文本,然後改變文字的帖子,因爲他們會出現在一列中,但同樣的做法會在行中工作嗎?

如果RDP中的整個文本文件是47行,我可以只說「用第_替換第45行」?

我知道這是一個痛苦的通讀。

任何和所有幫助,將不勝感激。

回答

0

你幾乎肯定會想要做更多的事情,比如找到具有「完整地址」的行,然後用另一行代替它,行號是一個相當易碎的東西。我不是在那裏我可以輕鬆地測試了整個事情,但你想要的東西,如:

Dim oFSO 
Dim inTS,OutTS 
Dim tline 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set inTS = oFSO.OpenTextFile("default.rdp",1,1) 
Set outTS = oFSO.CreateTextFile("mynew.rdp", true,true) 
While inTS.AtEndOfStream = false 
tline = inTS.ReadLine 
If InStr(1,tline,"full address:",1) > 0 Then 
WScript.Echo("found " &InStr(tline,"full address:")) 
outTs.WriteLine("full address:s:SERVER") 
Else 
outTs.WriteLine(tline) 
End If 
Wend  
inTS.Close 
outTS.Close 

雖然你可能有一些麻煩使用Unicode,你可能有更好的運氣的東西,如運行的GnuWin32的SED版本

相關問題