Öppna en text fl och gå igenom den rad för rad

PsyDoniaMedlem sedan maj 2003924 inlägg

Frågan19 feb. 2006 07:48#1

Hej jag tänkte att man ska öppna en textfil och sen gå igenom den rad för rad och sortera ut saker mellan vissa delar.

[Står det lite saker] Här står det något annat (Här står det något mer) - Här står det mer

Jag vill alltså att Det inom [] ska komma i en list box och det mellan ]/ ska komma i en anna list box och det mellan () i en tredje list box och det efter - en en fjärde list box

PsyDoniaMedlem sedan maj 2003924 inlägg

19 feb. 2006 18:12#2

har gjort lite men det blir fel.
ibland funkar det ibland inte.

strFileOpen = App.Path & "\Filen.txt"
Open strFileOpen For Input As #1

Do Until EOF(1)
Input #1, strLine

strList1 = strLine
strList2 = strLine
strList3 = strLine
strList4 = strLine

    strList1 = Mid(strList1, InStr(strList1, "["))
    
   strList1 = Mid(strList1, 2, InStr(2, strList1, "]") - 2)

List1.AddItem strList1

    strList2 = Mid(strList2, InStr(strList2, "("))
    
   strList2 = Mid(strList2, 2, InStr(2, strList2, ")") - 2)

List2.AddItem strList2

    strList3 = Mid(strList3, InStr(strList3, ") -") + 3)

List3.AddItem strList3

Loop

Close #1

använder koden ovan, säkert dålig kod.
som sagt funkar ibland ibland inte.
oftast funkar den men ibland kommer det som ska i list 3 i list1