To run it without the requirement for any additional software, you can write the script using VBScript. This is included by default on Windows systems. Hopefully, one of the VBScript experts will come along soon. One problem with using quotes to enclose some individual fields (which may contain spaces) is how you code quotes that are part of the field. For example, some systems use a special character, e.g. "This quote: \" is part of this field" and "This field contains the single \\ special character." Other systems use double quotes: "This quote: "" is part of this field." Whoever writes your VBScript will need to know the full syntax rules in order to code it correctly. (P.S. your sample data is wrong: Camberwell is in South London, postcode SE**, not CB28. My aunt used to live there.)

0

Hi Klint, Many thanks for the reply, I can see what you mean. As ever the things that look simple in theory never are. Would it be possible to search the line for the text string "234".

0

It would be possible to search for the string "234" that may appear anywhere on the line, but that wouldn't make it a robust application as it would match other fields, e.g. if the street address field was also "234". It shouldn't be too difficult to write a VBScript to look at field 33 specifically but I would leave that to someone who knows VBScript well. If you are not sure about how internal quotes are escaped, you can provisionally have a VBScript that works as long as your data doesn't contain any fields that contain quotes.

0

Here's a batch file that works by searching for "234" etc anywhere on the line, not just field 33. Not recommended due to reasons stated in my earlier post. You can use it until someone comes up with a better solution. find """234""" bjobojd0 && (move bjobojd0 A\ && call A.bat & goto :next) find """456""" bjobojd0 && (move bjobojd0 B\ && call B.bat & goto :next) find """789""" bjobojd0 && (move bjobojd0 C\ && call C.bat & goto :next)

0

Thank you Klint, I will try it, it at least gives me a good start.

0

Klint is right- this will be difficult to do in batch alone. Here is my attempt. We will successively extract next field. If that begins with double quote, the field is till the closing double quote. If it does not begin with double quote, the field is until the following space. # Script Field33.bat var str data ; cat "C:\bjobojd0" > $data var int fieldnum while ($fieldnum <= 32) do var str first ; chex -p "1" $data > $first if ($first == "\"") stex "^\" ^]" $data > null else stex "^ ^]" $data > null endif set $fieldnum = $fieldnum+1 done var str field33 ; stex "]^ ^" $data > $field33 echo -e "DEBUG: Field 33 is " $field33 if ($field33=="\"234\"") do system move "C:\bjobojd0" "C:\A" ; system "C:\A.bat" done endif if ($field33=="\"456\"") do system move "C:\bjobojd0" "C:\B" ; system "C:\B.bat" done endif if ($field33=="\"789\"") do system move "C:\bjobojd0" "C:\C" ; system "C:\C.bat" done endif Script is in biterscripting. Think of it as a preprocessor to batch commands. (It really isn't, but it helps to think that way.) Save the script as "C:\Field33.bat" . Start the command prompt. Enter the following command. "C:\biterScripting\biterScripting.exe" "C:\Field33.bat" I have tested the script. Sen

0

Sadly, VBScript doesn't have the best text parsing tools. It is, however, doable. Main Function Main Dim line, tokens, fso, shell Set fso = CreateObject("Scripting.FileSystemObject") Set shell = CreateObject("WScript.Shell") With fso.OpenTextFile(WScript.Arguments(0)) tokens = Parse(.ReadLine) End With Select Case tokens(32) Case """234""" fso.MoveFile WScript.Arguments(0), "A\" shell.Run "cmd /c A.bat" Case """456""" fso.MoveFile WScript.Arguments(0), "B\" shell.Run "cmd /c B.bat" Case """789""" fso.MoveFile WScript.Arguments(0), "C\" shell.Run "cmd /c C.bat" Case Else End Select End Function Function Parse(str) Dim r(), tokens, rCnt, maxToken, t tokens = Split(str) ReDim r(UBound(tokens)) maxToken = Ubound(tokens) For t = 0 To maxToken r(rCnt) = tokens(t) If Left(tokens(t), 1) = """" Then Do Until Right(tokens(t), 1) = """" Or t = maxToken t = t + 1 r(rCnt) = r(rCnt) & " " & tokens(t) Loop If tokens(t) = """" Then t = t + 1 r(rCnt) = r(rCnt) & " " & tokens(t) End If End If rCnt = rCnt + 1 Next 't ReDim Preserve r(rCnt - 1) Parse = r End Function

0

Many thanks Guy's, I have enough material here to resolve my problem. This is definitely the best forum on the web.

0