[SOLVED]Text Parsing Issue

jdraw said:
I opened your NotGoodList and copied it to Notepad++ and saved the file as iptvOrig.txt

I changed this line of code:
Code: 
   ' Open "C:\Users\mp\Desktop\tv_channels_hjh14m2636_plus.txt" For Input As #1
   Open "C:\Users\jack\documents\iptvorig.txt" For Input As #1
I stepped through the code and checked a few values for a record or 2.
Then ran the code directly from the module. Saw that the table was populated, so deleted the records;
then ran the routine from the form button.
Click to expand...
well if you save it from Notepad++ it works just fine, it becomes formatted just like the Good List, but I was wondering if we could find a way on how to parse it when it is not formatted.. It may be too much to ask, I don't know..

Regards,
Margarit
 
riti90 said:
but I was wondering if we could find a way on how to parse it when it is not formatted.. It may be too much to ask, I don't know..
Click to expand...
My code as is works, or atleast for tvg-name.

What did you try to do that did not work?
 
namliam said:
My code as is works, or atleast for tvg-name.

What did you try to do that did not work?
Click to expand...
Hi,
Yes it works for the tvg-name, sorry, I was doing something wrong there.
It works just fine :)
I just need probably to do the same for all the other bits in the line then?
Any suggestion on that? :)
Thank you
 
Code: 
            If Mid(myLine, myCounter, 8) = "tvg-name" Then
                myCounter = myCounter + 8 + 2
                myQuote = InStr(myCounter, myLine, """")
                rs.AddNew
                rs.Fields("tvg-name") = Mid(myLine, myCounter, myQuote - myCounter)
                rs.Update
                myCounter = myCounter + myQuote
            End If
Simply insert above bit for each item you want to actually capture.

Once you done that you need to be a little creative about picking up the bit after the comma...
 
namliam said:
Code: 
            If Mid(myLine, myCounter, 8) = "tvg-name" Then
                myCounter = myCounter + 8 + 2
                myQuote = InStr(myCounter, myLine, """")
                rs.AddNew
                rs.Fields("tvg-name") = Mid(myLine, myCounter, myQuote - myCounter)
                rs.Update
                myCounter = myCounter + myQuote
            End If
Simply insert above bit for each item you want to actually capture.

Once you done that you need to be a little creative about picking up the bit after the comma...
Click to expand...
hi again, sorry to keep bothering but I add it like this and it doesn't give me expected result:

Code: 
    Do While Not EOF(1)
        Line Input #1, myLine
        myCounter = 1
        Do While myCounter <= Len(myLine)
            If Mid(myLine, myCounter, 6) = "tvg-id" Then
                myCounter = myCounter + 6 + 2
                myQuote = InStr(myCounter, myLine, """")
                rs.AddNew
                rs.Fields("length") = Mid(myLine, myCounter, myQuote - myCounter)
                rs.Update
                myCounter = myCounter + myQuote
            End If
            
            If Mid(myLine, myCounter, 8) = "tvg-name" Then
                myCounter = myCounter + 8 + 2
                myQuote = InStr(myCounter, myLine, """")
                rs.AddNew
                rs.Fields("tvgname") = Mid(myLine, myCounter, myQuote - myCounter)
                rs.Update
                myCounter = myCounter + myQuote
            End If
            
            myCounter = myCounter + 1
        Loop
    Loop

Do you think it should be better if I put them in different subs or is there another way you may think of?
Thank You :)
 
When I opened your zip, then opened the NotGoodList, in my setup it will open the txt file with Notepad++.
If, as you say, that step is modifying the file and inserting CrLF as a record terminator and working with your existing code, then perhaps you should just append a CrLF on each record in your routine. I haven't checked the actual ASCII characters, but I did not adjust the records intentionally. If I get some time later today I'll check it; I have other things on the go this morning.
Good luck.
 
Here's a routine that will take your notGoodList that has LF line terminator, and convert it to CrLf terminators and write the result to a new text file. You'll have o adjust your file name in your routine to open the one with the CrLF.

Then, the new output file runs with your existing code. Let us know if this resolves the issue

Code: 
' ----------------------------------------------------------------
' Procedure Name: ConvertLF2CRLF
' Purpose: To convert a txt file that uses LF as line separator (UNIX)
' to CrLF (Windows)
' Procedure Kind: Sub
' Procedure Access: Public
' Author: Jack
' Date: 31-Jan-20
' ----------------------------------------------------------------
Sub ConvertLF2CRLF()
10        On Error GoTo ConvertLF2CRLF_Error
          Dim sLine As String
          Dim oLine As String, i As Integer
         '
         'identify a new output file to contain the CrLf
20        Open "C:\users\jack\documents\NotGoodListREVVcrlf.txt" For Output As #2
        
         'the NotGoodList with just LF line terminator
30        Open "C:\users\jack\documents\NotGoodList.txt" For Input As #1
40        Do While Not EOF(1)
50            Line Input #1, sLine
              'replace all LF with CRLf
60            oLine = Replace(sLine, Chr(10), Chr(13) & Chr(10))
              'write the new records to the output file --now have CrLf line terminator
70            Write #2, oLine
80        Loop
90        Close #1
100       Close #2
110       Debug.Print "-----Finished LF to CrLf Conversion ---"

120       On Error GoTo 0
130       Exit Sub

ConvertLF2CRLF_Error:

140       MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ConvertLF2CRLF, line " & Erl & "."

End Sub
 
Last edited:
jdraw said:
Here's a routine that will take your notGoodList that has LF line terminator, and convert it to CrLf terminators and write the result to a new text file. You'll have o adjust your file name in your routine to open the one with the CrLF.

Then, the new output file runs with your existing code. let us know if this resolves the issue

Code: 
' ----------------------------------------------------------------
' Procedure Name: ConvertLF2CRLF
' Purpose: To convert a txt file that uses LF as line separator (UNIX)
' to CrLF (Windows)
' Procedure Kind: Sub
' Procedure Access: Public
' Author: Jack
' Date: 31-Jan-20
' ----------------------------------------------------------------
Sub ConvertLF2CRLF()
10        On Error GoTo ConvertLF2CRLF_Error
          Dim sLine As String
          Dim oLine As String, i As Integer
         '
         'identify a new output file to contain the CrLf
20        Open "C:\users\jack\documents\NotGoodListREVVcrlf.txt" For Output As #2
        
         'the NotGoodList with just LF line terminator
30        Open "C:\users\jack\documents\NotGoodList.txt" For Input As #1
40        Do While Not EOF(1)
50            Line Input #1, sLine
              'replace all LF with CRLf
60            oLine = Replace(sLine, Chr(10), Chr(13) & Chr(10))
              'wrute the new records to the output file --now have CrLf line terminator
70            Write #2, oLine
80        Loop
90        Close #1
100       Close #2
110       Debug.Print "-----Finished LF to CrLf Conversion ---"

120       On Error GoTo 0
130       Exit Sub

ConvertLF2CRLF_Error:

140       MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ConvertLF2CRLF, line " & Erl & "."

End Sub
Click to expand...
You sir, are a life saver :)

Thank you so much, the only change i made is from
Code: 
Write #2, oLine
to
Code: 
Print #2, oLine
And that's because if I need to open an already good list the "Write" code would add extra "" in the line.

Thanks once again,
Margarit :)
 
Happy to help. Good luck with your project.
 
riti90 said:
hi again, sorry to keep bothering but I add it like this and it doesn't give me expected result:

Code: 
    Do While Not EOF(1)
        Line Input #1, myLine
        myCounter = 1
        Do While myCounter <= Len(myLine)
            If Mid(myLine, myCounter, 6) = "tvg-id" Then
                myCounter = myCounter + 6 + 2
                myQuote = InStr(myCounter, myLine, """")
                rs.AddNew
                rs.Fields("length") = Mid(myLine, myCounter, myQuote - myCounter)
                rs.Update
                myCounter = myCounter + myQuote
            End If
           
            If Mid(myLine, myCounter, 8) = "tvg-name" Then
                myCounter = myCounter + 8 + 2
                myQuote = InStr(myCounter, myLine, """")
                rs.AddNew
                rs.Fields("tvgname") = Mid(myLine, myCounter, myQuote - myCounter)
                rs.Update
                myCounter = myCounter + myQuote
            End If
           
            myCounter = myCounter + 1
        Loop
    Loop

Do you think it should be better if I put them in different subs or is there another way you may think of?
Thank You :)
Click to expand...
So what result are you expecting? Now you are creating a new record "AddNew" per field, this is probably what you mean as you want it as one recorrd.
Anyways I see you got someone to spoonfeed you a solution regardless, bon chance.
 
You must log in or register to reply here.

Similar threads

M
Parse responseXML in VBA
Replies
0
Views
4,215
mjcaestecker
M
D
Simple HTML (I think!!)
Replies
2
Views
2,706
dazstarr
D

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom