Enlever du texte..Résolu

Question

Bonjour à tous !

Voila j'ai déjà fait quelques recherches mais je ne trouve rien qui correspond vraiment avec ce que je veux faire, pourtant je pense pas que ça doit être compliqué.
Donc j'ai une adresse sous cette forme :

cs_Exploreur · Accepted Answer

Re,

Regarde ce code ci-dessous(il y a peut-être plus court) et comme dit Jmfmarques : Annalyse et comprend

Private Sub Form_Load()


Dim iLocateDebut As Integer
Dim iLocateFin As Integer
Dim iDiff As Integer
Dim sStr As String
Dim sVar1 As String
Dim sVar2 As String


sStr = "abcd://abc.abcdef.abc/abc/abc_/VARIABLE1.abc&carte=VARIABLE2"


'* Extraire la première "variable" VARIABLE1
  iLocateDebut = InStrRev(Trim$(sStr), "/")
  iLocateFin = InStrRev(Trim$(sStr), ".")
  iDiff = iLocateFin - iLocateDebut
  sVar1 = Mid$(sStr, iLocateDebut + 1, iDiff - 1)
  
'* Extraire la première "variable" VARIABLE2
  iLocateDebut = InStrRev(Trim$(sStr), "=")
  sVar2 = Mid$(sStr, iLocateDebut + 1)
  
'*Affichage
  MsgBox "Première variable extraite : " & sVar1
  MsgBox "Deuxième variable extraite : " & sVar2
  
End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

Utilisateur anonyme · Answer

Salut,

Utilise les fonctions Left$, Right$,  Mid$ ...
En prenant les répéres sur les /  . & =

__________
  Kenji

cs_Exploreur · Answer

Salut,

Voir ici, il y a un petit bout de code qui devrait te mettre sur la piste(en complément de la réponse de Charles Racaud)

A+
Exploreur

 Linux a un noyau, Windows un pépin

NYghost · Answer

Merci :) !

Par contre en left et right ca fonctionne mais dés que je passe en mid, j'ai une erreur "13" sur la ligne en gras !

chaine1 = Mid(1, txtorig.Text, 3)
txtname.Text = chaine1

Pourtant je l'ai bien déclaré en string..

jmfmarques · Answer

Je suppose que tu as regardé la syntaxe de la fonction Mid dans ton aide en ligne (si tu ne l'as pas fait, il est temps de le faire) :

Si oui ; que signifie pour toi le 1 dans :

chaine1 = Mid(1, txtorig.Text, 3)

??

NYghost · Answer

Pour moi cela veut dire que je récupere 1 caractere en en comptant 3 à partir du début..

cs_Exploreur · Answer

Salut, Mid(String,Start,Lenght) Élément, Description, ---- string,

Expression de chaîne dont sont extraits les caractères à renvoyer. Si l'argument string contient une valeur de type

Null, Null est renvoyé., ---- start, Donnée de type

Long. Position du caractère dans l'argument string qui marque le début de la partie à extraire. Si la valeur de l'argument start est supérieure au nombre de caractères contenus dans l'argument string, la fonction Mid renvoie une chaîne de longueur nulle ("")., ---- length, Facultatif. Donnée de type Variant (Long). Nombre de caractères à renvoyer. Si l'argument length est omis ou si le nombre de caractères du texte (y compris le caractère qui occupe la position start), est inférieur à la valeur de cet argument, tous les caractères à compter de la position start et jusqu'à la fin de la chaîne sont renvoyés A+ Exploreur Linux a un noyau, Windows un pépin

PCPT · Answer

salut,

voir ce snippet pour l'occasion :
http://www.codyx.org/snippet_manipuler-parametres-passes-dans-url_93.aspx#1668

il te permettra d'obtenir séparément abcd://abc.abcdef.abc/abc/abc_/xxxx.abc

tu n'as plus qu'à récupérer ce qui se trouve entre le dernier /
et le .
 (instrrev)

là encore codyx contient ce qu'il faut....
http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx#1043

au final tu as juste à faire :

Dim sValue As String
sValue = GetValueParam("

NYghost · Answer

Bon alors je voulais vous dire un grand merci a tous pour votre participation :) !

Pour finir j'ai pris le code d'exploreur qui me semble le plus accessible (pour mon niveau)..

A tres bientot !

Thx :)

PCPT · Answer

n'oublie pas de valider saréponse

NYghost · Answer

B00lay inside !

Comment qu'on valide  ?

PCPT · Answer

et moi qui pensais l'ancienne version de CD déjà trop explicite... 

euh... sur le gros bouton?

PCPT · Answer

de CS* (CodeS-SourceS)

@+

NYghost · Answer

Lol je cherchais dans les boutons "Rep, MP, etc" ;) !

Merci encore à tous

cs_Exploreur · Answer

Mes Salutations à tous,

PCPT >> Ta proposition est fonctionnelle aussi....En plus c'est Charles Racaud qui a ouvert la voie....(par rapport à moi..lol...)

A+
Exploreur

 Linux a un noyau, Windows un pépin

Enlever du texte..

15 réponses

Votre réponse

Discussions similaires