HOW TO SPLIT A TEXT FILE INTO SEVERAL INDEPENDENT FILES ACCORDING TO SOME FLAGS FOUND IN THE ORIGINAL FILE

I have to read a text file, for which I don't know the size.  All I know is that I should separate it into as many files as information it contains.  The text files looks like this:

ISA/00/          /00/          /ZZ/PAJCANADA      /01/200091189   /060620/0841/U/00401/000100536/0/P/>GS/FA/PAJCANADA/200091189/20060620/0840/100536001/X/004010VICSST/997/0001AK1/RA/304002529AK2/820/304003152AK5/AAK9/A/1/1/1SE/6/0001GE/1/100536001IEA/1/000100536ISA/00/          /00/          /ZZ/PAJCANADA      /01/202377222      /060620/0841/U/00401/000100457/0/P/>GS/FA/PAJCANADA/202377222/20060620/0840/100457001/X/004010VICSST/997/0002AK1/RA/304050622AK2/820/304051097AK5/AAK9/A/1/1/1SE/6/0002GE/1/100457001IEA/1/000100457ISA*00*          *00*          *ZZ*PAJCANADA      *12*4165106466 AAK9*A*1*1*1SE*6*0003GE*1*100464001IEA*1*000100464ISA*00*          *00*          *ZZ*PAJCANADA      *12*4169413922     00550AK2*850*001001294AK5*AAK9*A*1*1*1SE*6*0004GE*1*100767001IEA*1*000100767



The independen Files are separated by the string "ISA" .  In the sample file, I should divide it into four independent text files.  Each starting with the String "ISA"

The routine should stop once it has separated the original file.
jchionglouAsked:
Who is Participating?
 
mvidasConnect With a Mentor Commented:
Hello,

Give the following a try, should be what you need:

Sub jchionglou()
 Dim vFF As Long, vFile As String, vFileExt As String
 Dim tempStr As String, tempArr() As String, i As Long
 vFile = "C:\txtfile"
 vFileExt = ".txt"
 vFF = FreeFile
 Open vFile & vFileExt For Binary As #vFF
 tempStr = Space$(LOF(vFF))
 Get #vFF, , tempStr
 Close #vFF
 tempStr = Replace(tempStr, "ISA", Chr(255) & "ISA")
 tempArr = Split(tempStr, Chr(255))
 For i = 1 To UBound(tempArr)
  vFF = FreeFile
  Open vFile & "-" & CStr(i) & vFileExt For Output As #vFF
  Print #vFF, tempArr(i);
  Close #vFF
 Next
End Sub

Matt
0
 
danaseamanCommented:
Try this:

Option Explicit

Private Sub Form_Load()
   Dim i As Long
   Dim j As Long
   Dim vSplit() As String
   Dim vSplitFiles() As String
   Dim strContents As String
   Dim objFSO
   Dim objFile
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set objFile = objFSO.OpenTextFile(App.Path & "\test.txt", 1)
   
   strContents = objFile.ReadAll
   objFile.Close
   
   'Debug.Print strContents
   vSplitFiles = Split(strContents, "ISA")
   For j = 0 To UBound(vSplitFiles)
      Debug.Print "ISA", j
      vSplit = Split(strContents, "/")
      'Data after 6th /
      Debug.Print "Data after 6th /", vSplit(6)
      'Data after first X
      For i = 0 To UBound(vSplit)
         'Debug.Print i, vSplit(i)
         If vSplit(i) = "X" Then
            Debug.Print "Data after first X", vSplit(i + 1)
         End If
      Next
   Next
End Sub
0
 
jchionglouAuthor Commented:
Thanks mvidas.  Your solution works perfectly.
0
 
mvidasCommented:
Glad to help! Normally I probably would have used Chr(0) instead of Chr(255) but wasn't sure if the boxes in your above code were 0 or not.  Let me know if you need anything else.
Matt
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.