No replies to this topic

[nick1200]

Hello i have a upload script which uploads a text file into my listview3
The problem im having it if i do
1
2
3
in a not pad it will not work if i do
1 - 2

it will upload 1 but not 2 into listview3

I think its because im using a account uploaded

Here is the code

Private Sub Command3_Click()
Dim frmNum As Integer
   
    On Error GoTo cdError

    Dim fNum%, tmpStr$

    fNum = FreeFile()
   
    With Form1.ComD
        .Filter = "Text Files (*.txt)|*.txt"
        .CancelError = True
        .DialogTitle = "Load a list..."
        .ShowOpen
        Open .FileName For Input As #fNum
        MyList = .FileName
        MsgBox "Please wait while the accounts are loaded..", vbInformation, "Please wait.."
       
                    Do While Not EOF(fNum)
                Line Input #fNum, tmpStr

              
              
               Line Input #fNum, tmpStr

                    Dim tmpStr1() As String
                    tmpStr1 = Split(tmpStr, " - ")
                    Form1.ListView3.ListItems.Add , , tmpStr1(1)

                    Command4.Caption = "Accounts: " & Form1.ListView3.ListItems.Count
                    
                        
                     
                If Slow Then DoEvents
            Loop
            
        Close #fNum
    End With

cdError:

End Sub

Edited by nick1200, 03 May 2011 - 11:38 PM.