Question

I have a vbscript file that is reading a file and sending each line to a terminal program. When it comes to a semicolon in the middle of the string, it splits the semicolon at the string.

I have been using this code for quite sometime with other strings with no problems. There is one string per line in the file the script is reading.

The string in the file that is causing the problem is: 2101;99PSP

Here is the code I am using (with a terminal emulation program called Reflections):

Sub NarcoticOrderableItemTurnOff()

''# Constants used by OpenTextFile()
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Const ICON_INFO = 64    ''# Information message; displays 'i' icon.

Set wshshell = CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = _
        objFSO.OpenTextFile("P:\NarcoticOrderableItems.txt", ForReading)

Session.Transmit "^Orderable Item Edit (CPRS)" & vbCr

    Do Until objTextFile.AtEndOfStream

        strNextLine = objTextFile.ReadLine
        arrC2oderableItemList = Split(strNextLine, ";", 3)

        'arrServiceList(0) = Area of Use
        'arrServiceList(2) = Printer for that area of use

        With Session

        .WaitForString "Select ORDERABLE ITEMS NAME:"
        .Transmit arrC2oderableItemList(0) & vbCr
        .WaitForString "//"
        .Transmit "N" & vbCr
        .WaitForString "//"
        .Transmit vbCr
        .WaitForString "//"
        .Transmit vbCr
        .WaitForString "//"
        .Transmit vbCr
        End With

    Loop

objTextFile.close

Session.MsgBox "All done!  C2 Orderable Items turned off!", vbExclamation

''#ErrorHandler:
''#    Session.MsgBox Err.Description, vbExclamation + vbOKOnly

End Sub

Answer 1

I think it might have something with the following row of code to do:

arrC2oderableItemList = Split(strNextLine, ";", 3)