需要有一個VB腳本，在四個文本文件替換一條線，然後將它們輸出到一個新的文件名

-1

我需要一個VBScript，將讀取&在4個單獨的文本文件替換文本，並將其保存爲不同的文件名（* .ws文件名）。我也想讓它問我想用什麼來代替文本。我需要替換的唯一文本是LUName下兩個字母后面的每個文本文件上的6位數字。 6位數字與資產類似，每個數字都不相同。下面是4個單獨的文本文件。需要有一個VB腳本，在四個文本文件替換一條線，然後將它們輸出到一個新的文件名

文本文件1

[Profile] 
    ID=WS 
    Version=9 
    [Telnet3270] 
    LUName=FE223006 
    HostName=plx.access.com 
    Security=N 
    CertSelection=AUTOSELECT 
    [Communication] 
    Link=telnet3270 
    [3270] 
    ScreenSize=43x80 
    HostGraphics=Y 
    QueryReplyMode=Auto 
    HostCodePage=037-U 
    [Keyboard] 
    CuaKeyboard=1 
    Language=United-States 
    IBMDefaultKeyboard=N 
    DefaultKeyboard=C:\ProgramData\IBM\Personal Communications\bnsf.kmp 
    [LastExitView] 
    A=3 177 396 656 456 83 8 15 400 0 Fixedsys— 37

文本文件2

[Profile] 
ID=WS 
Version=9 
[Telnet3270] 
LUName=FF223006 
HostName=plx.access.com 
Security=N 
CertSelection=AUTOSELECT 
[Communication] 
Link=telnet3270 
[3270] 
ScreenSize=43x80 
HostGraphics=Y 
QueryReplyMode=Auto 
HostCodePage=037-U 
[Keyboard] 
CuaKeyboard=1 
Language=United-States 
IBMDefaultKeyboard=N 
DefaultKeyboard=C:\ProgramData\IBM\Personal Communications\bnsf.kmp 
[LastExitView] 
A=3 177 396 656 456 83 8 15 400 0 Fixedsys— 37

文本文件3

[Profile] 
ID=WS 
Version=9 
[Telnet3270] 
LUName=FG223006 
HostName=plx.access.com 
Security=N 
CertSelection=AUTOSELECT 
[Communication] 
Link=telnet3270 
[3270] 
ScreenSize=43x80 
HostGraphics=Y 
QueryReplyMode=Auto 
HostCodePage=037-U 
[Keyboard] 
CuaKeyboard=1 
Language=United-States 
IBMDefaultKeyboard=N 
DefaultKeyboard=C:\ProgramData\IBM\Personal Communications\bnsf.kmp 
[LastExitView] 
A=3 177 396 656 456 83 8 15 400 0 Fixedsys— 37

文本文件4

[Profile] 
ID=WS 
Version=9 
[Telnet3270] 
LUName=FH223006 
HostName=plx.access.com 
Security=N 
CertSelection=AUTOSELECT 
[Communication] 
Link=telnet3270 
[3270] 
ScreenSize=43x80 
HostGraphics=Y 
QueryReplyMode=Auto 
HostCodePage=037-U 
[Keyboard] 
CuaKeyboard=1 
Language=United-States 
IBMDefaultKeyboard=N 
DefaultKeyboard=C:\ProgramData\IBM\Personal Communications\bnsf.kmp 
[LastExitView] 
A=3 177 396 656 456 83 8 15 400 0 Fixedsys— 37

我已搜查每一個地方的腳本，可以做到這一點，所有的，我發現我有問題的人。我可能會補充一點，我對VBS中的編程很熟悉，並且在我還在學習時會對某些事情有所瞭解。

來源

2015-04-25 Justin Burris

歡迎堆棧溢出！請注意，本網站旨在幫助人們使用他們的代碼，因此我們不會爲您編寫代碼。因此，請分享您的努力來實現這一目標，並且我們會看到我們可以做些什麼來提供幫助。 –

一個實現與VBA這樣的見[閱讀從ini文件數據（http://stackoverflow.com/questions/21825192/read-data-from-ini-file）。這應該給你一個出發點。 – Comintern

好吧，我現在放棄這個問題。感謝任何和所有的幫助。 –

我建議在GetPrivateProfileString閱讀起來，它的合作伙伴，WritePrivateProfileString。他們是Windows與ini文件交互的方式，這就是你在這裏發佈的內容。

那麼你可能想看看這篇文章：http://www.freevbcode.com/ShowCode.asp?ID=5390

來源

2015-04-25 13:15:39 taxidev

以及我還有一個想法....是有一個腳本，讓我寫這個信息到一個文本文件？而不是已經寫好測試文件了？並且我將如何在vbs中做到這一點？一個程序會寫入日誌的方式。 –

再次，讀伊恩和我建議的條款。 – taxidev

需要有一個VB腳本，在四個文本文件替換一條線，然後將它們輸出到一個新的文件名

回答

相關問題