FTP Client - TextBox ftp://

Question

Voilà, je suis en train de programmer un logiciel FTP et je suis bloqué ici :

J'ai une form (frmConnection) avec plusieurs TextBox (nommées) :
txtURL : pour l'ip
txtPort : pour le port
etc....

Lorsque j'introduis dans la textbox nommé txtURL :
ftp://login:password@AdresseIp:Port

Je voudrais qu'il me repère si les lettres "ftp://" sont présentes au début dans le textbox, si oui, alors qu'il me mette automatiquement le Port dans txtPort, le pass dans txtPass, l'ip dans txtURL....

En gros, comme dans LeechFTP ou FlashFXP pour ceux qui connaissent !
VOilà, merci de m'aider, et merci encore à vbfrance qui m'a beaucoup apporté jusqu'à présent ;)

++

Urgo

DeAtHCrAsH · Answer

Salut,
Voila la solution que je te propose :

ftp://login:password@AdresseIp:Port

Dim URL as String
Dim POS1 as Integer
Dim POS2 as Integer

URL = txtURL.Text 'Ici on affecte la contenu de la textbox a la variable

If LCase(Left(URL, 6)) = "ftp://" then
   POS1 = Instr(7,URL,":")
   txtLogin.Text = Mid$(URL,7, POS1 - 7) 
   POS2 = Instr(POS1, URL, "@")
   txtPass.Text = Mid$(URL,POS1 + 1, POS2 - POS1 -1)
   POS1 = Instr(POS2, URL, ":")
   txtIP.Text = Mid$(URL, POS2+1, POS1 - POS2 - 1)
   txtPort.Text = Mid$(URL, POS1+1)
else
    MsgBox "L'url entré n'est pas un URL FTP!"
End If

--=]DeAtH_-_CrAsH[=--

cs_Urgo · Answer

Mille mercis à toi ! Cela marche à merveille !
Tu mérites que je te mette des 10/10 sur toutes tes sources ! :D
++

FTP Client - TextBox ftp://

2 réponses

Discussions similaires