Multiple Loop for Reading a text file with tags

N

newbie001

New Member
Joined
Mar 25, 2014
Messages
9
Hi Sirs,

I have a problem regarding sorting our books on our store. The database extracted in textfile is somehat like this
<bookstart
<bookstart
<bookstart
**BOOKSTART
SERIAL=3234123532;
AUTHORSN=12343234;
CASE=11;
CLASS=1-1-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=2-9-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=3-4-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=4-7-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=5-3-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
<bookend
**BOOKEND
<bookstart< em="">**BOOKSTART
<bookend
<bookend
<bookstart
SERIAL=3234123533;
AUTHORSN=12343234;
CASE=11;
CLASS=1-1-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=2-9-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=5-4-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=4-7-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=8-3-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
<bookend< em="">**BOOKEND
<bookend
</bookend
</bookend<></bookstart
</bookend
</bookend
</bookstart<></bookend
</bookstart
</bookstart
</bookstart
​
I want to tabulate all the book on excel but i don't know how to do it via VBA. I just want to get the first two columns on the CLASS tag. The First Column of the CLASS tag is the BOOK LOCATION, and the Second Column is the Storage Location


I want to match the BOOKLOCATION Number to the Storage Location like the one on the table below. I have thousand of records. i want to sort. I hope you can help me on my dilemma. =(
[TABLE="width: 500"]
<tbody>[TR]
[TD]SERIAL
[/TD]
[TD]AUTHOR
[/TD]
[TD]CASE
[/TD]
[TD]1
[/TD]
[TD]2
[/TD]
[TD]3
[/TD]
[TD]4
[/TD]
[TD]5
[/TD]
[TD]6
[/TD]
[TD]7
[/TD]
[TD]8
[/TD]
[TD]9
[/TD]
[/TR]
[TR]
[TD]3234123532
[/TD]
[TD]12343234
[/TD]
[TD]11
[/TD]
[TD]1
[/TD]
[TD][/TD]
[TD]5
[/TD]
[TD]3
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4
[/TD]
[TD][/TD]
[TD]2
[/TD]
[/TR]
[TR]
[TD]3234123533
[/TD]
[TD]12343234
[/TD]
[TD]11
[/TD]
[TD]1
[/TD]
[TD][/TD]
[TD]8
[/TD]
[TD]5
[/TD]
[TD][/TD]
[TD][/TD]
[TD]4
[/TD]
[TD][/TD]
[TD]2
[/TD]
[/TR]
</tbody>[/TABLE]
 
Sort by date Sort by votes
newbie001 said:
<bookstart
<bookstart
<bookstart

SERIAL=3234123532;
AUTHORSN=12343234;
CASE=11;
CLASS=1-1-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=2-9-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=3-4-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=4-7-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=5-3-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
<bookend
**BOOKEND
<bookstart< em="">**BOOKSTART
<bookend
<bookend
<bookstart
SERIAL=3234123533;
AUTHORSN=12343234;
CASE=11;
CLASS=1-1-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=2-9-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=5-4-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=4-7-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=8-3-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
<bookend< em="">**BOOKEND
</bookend<></bookstart
</bookend
</bookend
</bookstart<></bookend
</bookstart
</bookstart
</bookstart
Click to expand...
Assuming your text file looks like what you posted above, the following macro will read in the data directly from the text file, add a new sheet named Books followed by the date/time formatted as ddmmyyyyhhmmss, and then populate this sheet with the data from the file distributed as you showed in your original message. You need to do two things to the macro... one, change my example path and filename (highlighted in red) to the actual path and filename to your text file and, two, change my example value of 9 (shown in blue)(taken from your sample output table) in the MaxLocations constant (the Const statement) to the maximum number of locations that could ever be found in the file.
Rich (BB code): 
Sub Books()
  Dim X As Long, Y As Long, Z As Long, FileNum As Long, RowOut As Long
  Dim PathFilename As String, TotalFile As String
  Dim CaseNum As String, Serial As String, Author As String, Location As String
  Dim Books() As String, Classes() As String, Class() As String, ClassLoc() As String
  Const MaxLocations As Long = 9
  PathFilename = "C:\temp\TestFile.txt"
  FileNum = FreeFile
  Open PathFilename For Binary As #FileNum
    TotalFile = Space(LOF(FileNum))
    Get #FileNum, , TotalFile
  Close #FileNum
  Books = Split(TotalFile, "**BOOKSTART" & vbNewLine)
  With Sheets.Add
    .Name = "Books " & Format(Now, "mmddyyyyhhmmss")
    Range("A1:C3") = Array("SERIAL", "AUTHOR", "CASE")
    For X = 1 To MaxLocations
      Cells(1, X + 3) = X
    Next
    For X = 1 To UBound(Books)
      ReDim Class(1 To MaxLocations)
      Serial = Split(Split(Books(X), "SERIAL=", 2)(1), ";")(0)
      Author = Split(Split(Books(X), "AUTHORSN=", 2)(1), ";")(0)
      CaseNum = Split(Split(Books(X), "CASE=", 2)(1), ";")(0)
      Cells(X + 1, "A").Resize(, 3) = Array(Serial, Author, CaseNum)
      Classes = Split(Books(X), "CLASS=")
      For Y = 1 To UBound(Classes)
        ClassLoc = Split(Classes(Y), "-", 3)
        Class(ClassLoc(1)) = ClassLoc(0)
      Next
      Cells(X + 1, "D").Resize(, MaxLocations) = Class
    Next
  End With
  Columns(1).Resize(3 + MaxLocations).AutoFit
End Sub
 
Upvote 0
Hello Sir Rick,
First of all thank you for helping me in my problem. But its seem the Script fails ifthe AUTHOR'S FIELD or the CASE Field is blank.
How to tell it to continue and just leave the blank data empty.
 
Last edited:
Upvote 0
newbie001 said:
Hello Sir Rick,
First of all thank you for helping me in my problem. But its seem the Script fails ifthe AUTHOR'S FIELD or the CASE Field is blank.
Click to expand...
If you do not tell us that would be a possibility, then we do not know to design for it. So, what exactly do you mean by "blank"? Using CASE as an example, does "blank" mean this is in the file...

-----snip-----
AUTHORSN=12343234;
CASE=;
CLASS=1-1-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
-----snip-----

or does blank mean the "CASE=" line is not in the file at all at that location?
 
Upvote 0
Sorry if i confuse you. Because there is a entry on our database like the one below. There is no AUTHORSN= field after the SERIAL=. Because Author Field is not mandatory.

**BOOKSTART
SERIAL=3234126553;
CASE=11;
CLASS=4-7-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=5-3-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=100-9-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
**BOOKEND
 
Upvote 0
newbie001 said:
Sorry if i confuse you. Because there is a entry on our database like the one below. There is no AUTHORSN= field after the SERIAL=. Because Author Field is not mandatory.

**BOOKSTART
SERIAL=3234126553;
CASE=11;
CLASS=4-7-101-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=5-3-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
CLASS=100-9-1-241-33-NONE-0-NONE-00000000-65535-0-0-DP_UPS-NONE;
**BOOKEND
Click to expand...

Okay, then give this macro a try...

Code: 
Sub Books()
  Dim X As Long, Y As Long, Z As Long, FileNum As Long, RowOut As Long
  Dim PathFilename As String, TotalFile As String, Class As Variant
  Dim CaseNum As String, Serial As String, Author As String, Location As String
  Dim Books() As String, Classes() As String, ClassLoc() As String
  Const MaxLocations As Long = 9
  PathFilename = "C:\temp\TestFile.txt"
  FileNum = FreeFile
  Open PathFilename For Binary As #FileNum
    TotalFile = Space(LOF(FileNum))
    Get #FileNum, , TotalFile
  Close #FileNum
  Books = Split(TotalFile, "**BOOKSTART" & vbNewLine)
  With Sheets.Add
    .Name = "Books " & Format(Now, "mmddyyyyhhmmss")
    Range("A1:C3") = Array("SERIAL", "AUTHOR", "CASE")
    For X = 1 To MaxLocations
      Cells(1, X + 3) = X
    Next
    For X = 1 To UBound(Books)
      ReDim Class(1 To MaxLocations)
      Serial = Split(Split(Books(X) & "SERIAL=", "SERIAL=", 2)(1), ";")(0)
      Author = Split(Split(Books(X) & "AUTHORSN=;", "AUTHORSN=", 2)(1), ";")(0)
      CaseNum = Split(Split(Books(X) & "CASE=;", "CASE=", 2)(1), ";")(0)
      Cells(X + 1, "A").Resize(, 3) = Array(Serial, Author, CaseNum)
      Classes = Split(Books(X), "CLASS=")
      For Y = 1 To UBound(Classes)
        ClassLoc = Split(Classes(Y), "-", 3)
        Class(ClassLoc(1)) = ClassLoc(0)
      Next
      Cells(X + 1, "D").Resize(, MaxLocations) = Class
    Next
  End With
  Columns(1).Resize(3 + MaxLocations).AutoFit
End Sub
 
Upvote 0
Sir Rick,
Thank you very much... you really save me a huge time. If i can, I will buy you a coffee for helping me. Thanks.
 
Upvote 0
Sir Rick, Good Day, i run a huge database today and after 28,786 it has a error Subscript our of range. Run-Time Error 9
 
Upvote 0
You must log in or register to reply here.

Similar threads

D
  • Question Question
VBA code to transpose data from vertical to horizontal based on certain conditions.
Replies
2
Views
126
dsubash
D
A
  • Solved
Lookup PAAF ID based on Worker ID and date range
Replies
3
Views
145
Fluff
Fluff
H
  • Solved
Export some data if a condition is met.
Replies
2
Views
100
harzer
H
A
  • Question Question
Data Selection Based on Closest Value [20% Tolerance]
Replies
1
Views
247
StephenCrump
S
G
  • Solved
formula to get data/list based on specific condition
2
Replies
13
Views
777
Fluff
Fluff

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top