Fonction qui convertie les antislash en slash
Résolu/Fermé
Dark snake
Messages postés
23
Date d'inscription
mercredi 22 août 2007
Statut
Membre
Dernière intervention
27 mars 2010
-
22 mai 2008 à 22:59
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 23 mai 2008 à 09:34
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 23 mai 2008 à 09:34
1 réponse
Bonjour,
Je ne connais pas de fonction spéciale, mais on peut utiliser les instr et mid
Sub essai()
Dim chaine As String, i As Integer
'chaine avec des antislash
chaine = "D:\Mes documents\Ma musique\Sample Playlists"
i = InStr(1, chaine, "\")
While i > 0
Mid(chaine, i) = "/"
i = InStr(1, chaine, "\")
Wend
MsgBox chaine
End Sub
A+.
Je ne connais pas de fonction spéciale, mais on peut utiliser les instr et mid
Sub essai()
Dim chaine As String, i As Integer
'chaine avec des antislash
chaine = "D:\Mes documents\Ma musique\Sample Playlists"
i = InStr(1, chaine, "\")
While i > 0
Mid(chaine, i) = "/"
i = InStr(1, chaine, "\")
Wend
MsgBox chaine
End Sub
A+.
23 mai 2008 à 09:31
Rien à dire c'est super
23 mai 2008 à 09:34
Il existe la fonction replace():
;o)
polux