[vb6] Extractor

[Chad]

heres the source. really simple. No i will not give you the custom wrappers so don't even ask.

 Dim StrAccounts As String
Dim strSave As String
Dim StrUserPass() As String
Dim strSplit As String
Dim IntSplit As Integer
 
Private Sub cmdLoadA_Click()
    StrAccounts = (InputBox("What is the name of the file you want to open? Must be in same folder", "Load", "accounts.txt"))
    Call Wrapper.LoadList(lstAccounts, StrAccounts)
End Sub
 
Private Sub cmdSaveP_Click()
    strSave = (InputBox("What do you want to save the file as?", "Save", "Passwords.txt"))
    Call Wrapper.SaveList(lstPasswords, strSave)
End Sub
 
Private Sub cmdSaveU_Click()
    strSave = (InputBox("What do you want to save the file as?", "Save", "Usernames.txt"))
    Call Wrapper.SaveList(lstUsernames, strSave)
End Sub
 
Private Sub cmdStart_Click()
    Dim StrDeli As String
    
    StrDeli = (InputBox("What is the delimeter the accounts should be split by?", "Delimeter", " : "))
    cmdStart.Enabled = False
    
    For IntSplit = 0 To lstAccounts.ListCount - 1
        strSplit = (lstAccounts.List(IntSplit))
        StrUserPass = (Split(strSplit, StrDeli))
        
        lstUsernames.AddItem (StrUserPass(0))
        lstPasswords.AddItem (StrUserPass(1))
    Next
        Call MsgBox("Finished extracting", vbInformation, "Done")
        cmdStart.Enabled = True
End Sub 
  

[Chris]

You should make one that uses dynamic data parsing.

For example it can extract items that are in totally different data positions.

Example;

File Data - "Lol : Hi"

Input - "Username : Password"
Output - "Username = Lol, Password = Hi"

Input - "Password : Username"
Output - "Password = Lol, Username = Hi"


Etc.

[Chad]

What why I want to do that if this works just the same?

[Chris]

What why I want to do that if this works just the same?

Because you are using sterile code.

You always have "Username Delimiter Password".

Why can't it be "Data Delimiter Password Delimiter Username"

It's called generic or dynamic coding, a method that should be used for an extractor code. And it is not difficult mostly in VB6.

[Chad]

I know but i made this in a hurry for Nick.

[Chris]

I know but i made this in a hurry for Nick.

Oh well, I was just giving some ideas

[Chad]

What is the equivalent for ".ListCount" and ".AddItem" in vb.net?

I have converted everything else...



Try Win Zip...

ListCount for vb.net = List.Items.Item
Additem for vb.net = List.Items.Add

[Chad]

the .List. Was just an example take it out.

[Chad]

Ok. That solved a lot of the problems...

For Me.IntSplit = 0 To lstaccounts.Items.Item - 1

Now it is :

Argument not specified for parameter 'index' of 'Public Overridable Default Property Item(index As Integer) As Object'.

Messagebox.Show (lstAccounts.Items.Item(IntSplit)

should be something like that