Séparer des zones de texte dans des labels par exempleRésolu

Question

Bonjour

Je me remet tout doucement à visual basic. Mais je reste bloqué sur un petit truc. J'ai trouvé pas mal de truc dans les sources mais je n'ai pas réussi.

Voici ce que je veux faire :

Dans une variable j'ai du texte de ce genre (mais le nombre de ligne varie) :

[DEFAULT]
BASEURL=http://www.pcastuces.com/pratique/securite/spam/page1.htm
[InternetShortcut]
URL=http://www.pcastuces.com/pratique/securite/spam/page1.htm
Modified=8037303BD8C5C40184
IconFile=http://www.pcastuces.com/favicon.ico
IconIndex=1

J'ai besoin de mettre dans un label1 ce qu'il y a sur la ligne après 
URL= et dans label2  ce qu'il y a sur la ligne après IconFile=

Merci d'avance de m'aider dans ma recherche.

TheLordFreddy · Accepted Answer

ma_var c'est bien un string?
ta pa oublier les parentese devan tabeau() lors de sa déclaration?
a la place de:
Dim tableau()
essai
Dim tableau() as string 
mais bon ça métonnerrai que ca change quelque chose
les données de ta variable tu les trouve ou? si c'est dans un fichier texte tu pourai faire alor


dim ligne as string

open "c:	on_chemin	on_fichier.txt" for input as #1
do while not eof[1]
line input #1,ligne
if left(ligne,4)="URL=" then
Label1.caption=mid(ligne,5)
end if
if left(ligne ,9)="IconFile=" then
Label2.caption=mid(ligne,10)
end if
loop
close #1

bien sur tu remplace :
"c:	on_chemin	on_fichier.txt"
par l'adresse et le nom de ton fichier!
si ca marche pa alor la je ne compren pa
c'est que tu nous a pa tout dit..

-------------------------------------------
Ne vous fiez pas à l'apparence...

cs_Jack · Answer

Salut Robinwood01
J'ai pas trop le temps, je te laisse que les indices : tu regardes les exemples dans l'aide et tu comprendras :
Cherche ces instructions :
Instr
Mid

Vala
Jack
 NB : Je ne répondrai pas aux messages privés 

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

econs · Answer

URL placé dans Label1
Icone placée dans Label2


Dim urlStart As Long
Dim urlEnd As Long
Dim ma_var As String

ma_var = "[DEFAULT]BASEURL=http://www.pcastuces.com/pratique/securite/spam/page1.htm[InternetShortcut]URL=http://www.pcastuces.com/pratique/securite/spam/page12.htmModified=8037303BD8C5C40184IconFile=http://www.pcastuces.com/favicon.icoIconIndex=1" ' <-- à remplir

urlStart = InStr(1, ma_var, "URL=", vbTextCompare)
urlStart = InStr(urlStart + 1, ma_var, "URL=", vbTextCompare)
urlEnd = InStr(urlStart, ma_var, "Modified=", vbTextCompare)

Label1.Caption = Mid(ma_var, urlStart + 4, urlEnd - urlStart - 4)

urlStart = InStr(1, ma_var, "IconFile=", vbTextCompare)
urlEnd = InStr(urlStart, ma_var, "IconIndex=", vbTextCompare)

Label2.Caption = Mid(ma_var, urlStart + 9, urlEnd - urlStart - 9)


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

Robinwood01 · Answer

Merci beaucoup, j'y été presque mais c'est pas évident.

C'est super ca marche comme je voulais.

Encore merci.

Robinwood01 · Answer

Mince avec ca, ca ne marche plus :

[DEFAULT]
BASEURL=http://www.univ-valenciennes.fr/
[DOC#3#5]
BASEURL=http://www.univ-valenciennes.fr/resource/g29461.html
ORIGURL=cover.html
[InternetShortcut]
URL=http://www.univ-valenciennes.fr/test
Modified=10B528A7419FC40139
IconFile=http://lea-linux.org/images/favicon.ico

TheLordFreddy · Answer

URL placé dans Label1
Icone placée dans Label2

si dans ta variable les ligne sont séparées par des retours à la ligne


Dim ma_var as string 'ou ton texte sera stocké
Dim boucle as integer
Dim Tableau()

Tableau=split(ma_var,vbcrlf)

for boucle=0 to ubound(tableau)
if left(tableau(boucle) ,4)="URL=" then
Label1.caption=mid(tableau(boucle),5)
end if
if left(tableau(boucle) ,9)="IconFile=" then
Label2.caption=mid(tableau(boucle),10)
end if
next boucle



-------------------------------------------
Ne vous fiez pas à l'apparence...

Robinwood01 · Answer

Erreur :

Type incompatible 

s'arrete à :   Tableau = Split(ma_var, vbCrLf)

Robinwood01 · Answer

Pour le code d'avant c'est peut etre une petite erreur que je ne métrise pas.

La j'ai corrigé dans le dernier le [1] en (1) est ca marche nockel.

Un grand merci à tous, et en particulier à TheLordFreddy.

TheLordFreddy · Answer

de rien ^^
-------------------------------------------
Ne vous fiez pas à l'apparence...

Séparer des zones de texte dans des labels par exemple

9 réponses

Discussions similaires