exclure carctères avant un autreRésolu

Question

J'aimerai retire les carctères qu'il y a avant le carctère "_".
exemple: monfichier_12.asc
j'aimerai retirer "monfichie_" et récupérer 12.asc

Quelqu'un pourrait il m'aider ?

cs_JMO · Accepted Answer

Bonjour,

Tout simplement avec split.

var = Split("monfichier_12.asc","_")
MsgBox var(1)

jean-marc

cs_Jack · Answer

En complément :
Dim var() As String

tontonmsirda · Answer

désolé mais je suis débutant.
Merci beaucoup ça marche 
j'ai fait comme ceci

dim var(1) as string
var = Split("monfichier_12.asc","_")
MsgBox var(1)
le fait d'écrire split il efface tout ce qui est à gauche ?

jrivet · Answer

Salut, Non Split fait ceci: Description Renvoie un

[javascript:alink_4.Click() tableau] de base zéro à une dimension contenant le nombre spécifié de sous-chaînes. Syntaxe Split( expression [,delimiter[,count[,compare]]]) La syntaxe de la fonction Split comprend les éléments suivants : Élément, Description, ---- expression,

Ju£i?n Pensez: Réponse acceptée

cs_JMO · Answer

Re,

Dim var() As String
var = Split("monfichier_12.asc","_")
MsgBox var(0) &vbcr& var(1)

var(0) contiendra "monfichier"
var(1) contiendra "12.asc"

Attention, si 
var = Split("mon_fichier_12.asc","_")
MsgBox var(0) &vbCr& var(1) &vbCr& var(2)
var(0) contiendra "mon"
var(1) contiendra "fichier"

var(2) contiendra "12.asc"

voir aussi UBound avec l'aide en ligne de vb6.

jean-marc

jmfmarques · Answer

Bonjour,

je suis têtu !
On fait ici l'économie d'un "éclatement" par split :

private Sub Command1_Click()
  toto = "monfichier_12.Asc"
  MsgBox Mid(toto, InStr(toto, "_") + 1)
End Sub

cs_JMO · Answer

Bonjour Jacques,
Tu as entièrement raison !!!

jean-marc

Exclure carctères avant un autre

7 réponses

Votre réponse