0

我是 vbs 的新手，并尝试制作一个启动 exe 或服务的脚本，每个脚本之间有一个定义的延迟，我将它混合在一个 hta 文件中并且效果很好。但我需要在多台计算机上使用它，然后，需要使这个脚本更容易配置，并考虑添加一个配置文件 .csv。但是我没有成功让我的脚本一个接一个地读取我的 csv 的所有行。

我的脚本工作：

<!-- ----- ExeScript Options Begin -----  ScriptType: window,invoker  DestDirectory: temp  Icon:
     C:\Users\stream\Desktop\startapp.bmp  File:
     C:\Users\stream\Desktop\startapp.bmp  OutputFile:
     C:\Users\stream\Desktop\test.exe  ----- ExeScript Options End -----
     -->

    <head>
    <title>Start App</title>

    <HTA:APPLICATION
      APPLICATIONNAME="Start App"
      ID="startapp"
      VERSION="1.3"
      MAXIMIZEBUTTON="no"
      ICON="startapp.ico"
      SINGLEINSTANCE="yes"
      SELECTION="no"/>

    <SCRIPT TYPE="text/javascript">
    window.resizeTo(350,275);
    window.moveTo(2,720);
    </SCRIPT>

    <SCRIPT language="vbscript">
    Dim WshShell

    Sub Window_onLoad
        StartTimer      
    End Sub

    Sub StartTimer
        MonTimer0 =window.setTimeOut ("welcome", 5000, "VBScript") 'Appel de MonScript
        MonTimer1 = window.setTimeOut ("Start01", 35000, "VBScript") 'Appel de MonScript 
        MonTimer2 = window.setTimeOut ("Start02", 45000, "VBScript") 'Appel de MonScript 
        MonTimer8 = window.setTimeOut ("Startend", 55000, "VBScript") 'Appel de MonScript 
        MonTimer9 = window.setTimeOut ("Startclose", 65000, "VBScript") 'Appel de MonScript 
    End sub

    Sub Welcome
    S = SetTimeOut("MaSub (""Vos applications vont se lancer dans un instant... Veuillez patienter..."")", 100)
    End Sub     

    Sub Start01
    Set WshShell = CreateObject ("Wscript.Shell")
    WshShell.Run """C:\Program Files\soft1\soft1.exe"""
    S = SetTimeOut("MaSub (""soft1 a bien été lancé !"")", 100)
    End Sub

    Sub Start02
    Set WshShell = CreateObject ("Wscript.Shell")
    WshShell.Run """C:\Program Files\soft2\soft2.exe"""
    S = SetTimeOut("MaSub (""Soft2 a bien été lancé !"")", 100)
    End Sub

    Sub Startend
    S = SetTimeOut("MaSub (""Toutes les applications ont été correctement lancées ! StartApp va se fermer..."")", 100)
    End Sub

    Sub Startclose
    window.close()
    End Sub

    Set WshShell = nothing

    </SCRIPT>

    </head>

    <Body STYLE="font:10 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')">

    <p><center> <img src=".\startapp.bmp" /> </center></p>
    <br/><br/><br/>

    <p><center>
    <span style="color:white">
    <div id = D></div>

    <script language = vbs>
    Sub MaSub (E)
    Document.All.D.innerHTML = E
    ClearTimeOut S
    End Sub
    </script>
    </center></p>

    </span>
    </body>
    </html>

现在我正在尝试制作的代码... csv 文件：

    MonTimer0;Start01;5000;"C:\Program Files\soft1\soft1.exe";soft1 a bien été lancé !
    MonTimer1;Start02;10000;"C:\Program Files\soft1\soft2.exe";soft2 a bien été lancé !;

hta 文件：

    <!-- ----- ExeScript Options Begin -----
     ScriptType: window,invoker
     DestDirectory: temp
     Icon: D:\Bureau\startapp.bmp
     File: D:\Bureau\startapp.bmp
     OutputFile: D:\Bureau\test.exe
     ----- ExeScript Options End ----- -->

    <head>
    <title>Start App</title>

    <HTA:APPLICATION
      APPLICATIONNAME="Start App"
      ID="startapp"
      VERSION="1.2"
      MAXIMIZEBUTTON="no"
      ICON="startapp.ico"
      SCROLL="no"
      SINGLEINSTANCE="yes"
      SELECTION="no"/>

    <SCRIPT TYPE="text/javascript">
    window.resizeTo(350,275);
    window.moveTo(10,10);
    </SCRIPT>

    <SCRIPT language="vbscript">
      Dim FSO, LeFichier
                Dim CheminNomFichier, MeTbl, PourTbl, T


    Set fso = CreateObject("Scripting.FileSystemObject")
    CheminNomFichier =  "D:\Mes documents\PROGRAMMATION\Startapp\StartApp.csv"
    Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)

    PourTbl = LeFichier.ReadAll

    LeFichier.Close

       Dim Var0, Var1, Var2, Var3, Var4
    ' .......................
    'PourTbl contient: "un;deux;trois;quatres;cinqiéme et dernier;"
        MeTbl = split(PourTbl,";")
        for T =0 to ubound(MeTbl)-1

        next
        var0 = MeTbl(0)
        var1 = MeTbl(1)
        var2 = MeTbl(2)
        var3 = MeTbl(3)
var4 = MeTbl(4)

    Dim WshShell

            Sub Window_onLoad
                StartTimer      
            End Sub

    Sub StartTimer
                var0 =window.setTimeOut ( var1 , var2, "VBScript") 'Appel de MonScript
            End sub

    Sub var1

    Set WshShell = CreateObject ("Wscript.Shell")
    WshShell.Run WshShell.ExpandEnvironmentStrings(var3)

    S = SetTimeOut("MaSub (var4)", 100)
    End Sub

    Sub Startend
    S = SetTimeOut("MaSub (""toutes les applications ont été correctement lancées !"")", 100)
    End Sub

    Sub Startend
    window.close()
    End Sub

    Set WshShell = nothing 
    </SCRIPT>

    </head>

    <Body STYLE="font:10 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')">

    <p><center> <img src=".\startapp.bmp" /> </center></p>
    <br/><br/><br/>

    <p><center>
    <span style="color:white">
    <div id = D></div>

    <script language = vbs>
    Sub MaSub (E)
    Document.All.D.innerHTML = E
    ClearTimeOut S
    End Sub
    </script>
    </center></p>

    </span>
    </body>
    </html>

运行 hta 它告诉我第 68 行 [ sub (var1) ] 上的语法错误并且什么都不做......

如果你能帮助我，那就太好了！nb：如果我的英语有点糟糕，我很抱歉，我已经很久没有使用这种语言了。

4

2 回答 2

1 
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
...
MeTbl = split(PourTbl,";")

以上很可能是导致您的问题的原因，即 HTA 似乎没有读取所有行。如果您一次阅读整个 CSV ( ReadAll)，则必须先将文本拆分为行，然后再将每行拆分为单独的字段：

Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
...
For Each line In Split(PourTbl, vbNewLine)
  MeTbl = split(PourTbl,";")
  var0 = MeTbl(0)
  ...
Next

否则，您必须逐行读取文件：

Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
...
Do Until LeFichier.AtEndOfStream
  PourTbl = LeFichier.ReadLine
  MeTbl = split(PourTbl,";")
  var0 = MeTbl(0)
  ...
Next
LeFichier.Close

无论哪种方式，您都需要循环处理文件的行。

另一个问题是代码中的循环

MeTbl = split(PourTbl,";")
for T =0 to ubound(MeTbl)-1

next
var0 = MeTbl(0)
var1 = MeTbl(1)
...

实际上并没有做任何事情。您拆分 CSV 的内容，然后将 T 增加到UBound(MeTbl)-1不做任何其他事情，然后将前 5 个值（即 CSV 第一行的值）分配给变量。

于 2013-05-22T19:20:22.040 回答
0

你不能有一个变量和一个名为var1. （而且你一开始就不应该使用这样糟糕的名字。）

于 2013-05-22T10:03:09.810 回答