start RunVBS.vbs C:\FGPPOLR.tto
VBS½E‹åº
VBS½E‹åº
Dim
 ws,fso
Dim
 ttoFile,tmpFile,sTmpfileName,sTxtfileName
Dim
 line,sDate
'
ç•¶å‰çš„æ—¥æœ?時間
sDateÂ
=
Â
Year
(
Now
())Â
&
Â
Right
(
"
0
"
&
Month
(
Now
()),
2
)Â
&
Â
Right
(
"
0
"
&
Day
(
Now
()),
2
)Â
&
Â
Right
(
"
0
"
Â
&
Â
Hour
(
Now
()),
2
)Â
&
Â
Right
(
"
0
"
Â
&
Â
Minute
(
Now
()),
2
)Â
&
Â
Right
(
"
0
"
Â
&
Â
Second
(
Now
()),
2
)
Set
 wsÂ
=
 WScript.CreateObject(
"
WScript.Shell
"
)
Set
 fsoÂ
=
Â
CreateObject
(
"
Scripting.FileSystemObject
"
)
'
新生æˆTTOé…ç½®æª?攑֜¨¾pÈ®”TEMP路徑ä¸?/span>
sTmpfileNameÂ
=
 fso.getspecialfolder(
2
)Â
&
Â
"
\
"
Â
&
 sDateÂ
&
Â
"
.tto
"
If
 WScript.Arguments.Count
>
0
Â
Then
   Â
Set
 ttoFileÂ
=
 fso.openTextFile(WScript.Arguments(
0
),
1
,
False
)
   Â
Set
 tmpFileÂ
=
 fso.openTextFile(sTmpfileName,
2
,
True
)
   Â
While
Â
Not
 ttoFile.AtEndOfStream
        lineÂ
=
 ttoFile.ReadLine()
       Â
'
查找到PC_FILENAMEåƒæ•¸a定,並在文äšgåä¸ŠåŠ å…¥æ—¥æœŸ/時間
       Â
If
Â
InStr
(
1
,line,
"
PC_FILENAME=
"
)
=
1
Â
Then
           Â
If
Â
InstrRev
(line,
"
.
"
)
>
0
Â
Then
                lineÂ
=
Â
Mid
(line,
1
,
InstrRev
(line,
"
.
"
)
-
1
)Â
&
Â
"
_
"
Â
&
 sDateÂ
&
Â
Right
(line,
Len
(line)
-
InstrRev
(line,
"
.
"
)
+
1
)
           Â
Else
                lineÂ
=
 lineÂ
&
Â
"
_
"
Â
&
 sDate
           Â
End
Â
If
            sTxtfileNameÂ
=
Â
Mid
(line,
13
)
       Â
End
Â
If
        tmpFile.WriteLine(line)
   Â
Wend
    tmpFile.close
    ttoFile.close
   Â
If
Â
True
Â
Then
   Â
Dim
 oExec,lastSize,newSize,blnFlag1
    blnFlag1Â
=
Â
False
    lastSizeÂ
=
Â
-
2
   Â
'
調用TN4002PC來完æˆåŒ¯å‡ºæ“ä½?/span>
   Â
Set
 oExecÂ
=
 ws.exec(
"
C:\TN5250NF\TN4002PC.EXEÂ /f=
"
Â
&
 sTmpfileName)
   Â
Do
Â
While
 oExec.StatusÂ
=
Â
0
        WScript.SleepÂ
5000
       Â
If
 blnFlag1Â
=
Â
False
Â
Then
           Â
If
 fso.FileExists(sTxtfileName)Â
Then
                newSizeÂ
=
 fso.GetFile(sTxtfileName).Size
               Â
If
 newSizeÂ
=
 lastSizeÂ
Then
                    blnFlag1Â
=
Â
True
               Â
Else
                    lastSizeÂ
=
 newSize
               Â
End
Â
If
           Â
End
Â
If
       Â
Else
           Â
'
如果一ŒD‰|™‚間內匯出檔案大å°ç„¡è®ŠåŒ?則激‹zȪ—å£ä¸¦ç™¼é€ç©ºæ ?/span>
            ws.AppActivateÂ
"
TN4002PC
"
Â
            ws.SendKeysÂ
"
Â
"
 Â
       Â
End
Â
If
   Â
Loop
   Â
End
Â
If
End
Â
If
Set
 wsÂ
=
Â
Nothing
 Â
WScript.quit
排程埯‚¡Œå®Œå¾Œ(æ¯æ¬¡éƒ½æœƒæœ‰FDF--‹Æ„ä½å®šç¾©å’ŒTXT--檔案內容兩個文件生æˆï¼Œå¤šæ¬¡RUNå‡ºæ–‡ä»¶åæœƒä¸å?:
下載
      VBSæ–‡äšg

]]>