Tester présence d'un "\" dans un chemin d'accès!Résolu

Question

Salut,

j'ai &#233;crit un script dans lequel l'utilisateur doit renseigner des Textbox.
Dans l'une de ces Texbox, il doit saisir un chemin d'acc&#232;s (sans le nom du fichier &#224; la fin).
Je voudrais tester la pr&#233;sence ou non d'un "" &#224; la fin de la cha&#238;ne de caract&#232;re.
J'avais r&#233;alis&#233; la m&#234;me chose avec le caract&#232;re "." en faisant : 
If InStr(1, Text_EXT.Text, ".", vbTextCompare) > 0 Then
    DOT = ""
Else
    DOT = "."
End If

Mais l&#224; le probl&#232;me est diff&#233;rent car le caract&#232;re test&#233; est pr&#233;sent &#224; plusieurs endroits dans la cha&#238;ne.
De plus la cha&#238;ne peut &#234;tre de diff&#233;rente longueur donc on ne peut pas effectuer de recherche &#224; partir d'un certain nombre de caract&#232;res!
Si kelkun pouvait m'aider.
cordialement,

cs_Jack · Accepted Answer

Salut
Oriente toi vers les instructions : Left, Right, Mid et aussi Len
Par exemple, pour savoir si la derni&#232;re lettre est un \ :
If Right(maChaine, 1) = "" Then ...
Regarde aussi l'instruction InstrRev qui fait des recherches en commen&#231;ant par la fin du texte

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_MasterHack · Answer

salut, Jack a raison,et pour plus d'information voici un api supper genial pour ce genre de truc: une form et un textbox text1 et un commandbutton Private Declare Function PathAddBackslash Lib "shlwapi.dll" Alias "PathAddBackslashA" _ (ByVal lpszPath As String) As Long Dim chemin As String Private Sub Command1_Click() chemin = Text1 PathAddBackslash (chemin) Text1 = chemin End Sub ciao Alias MasterVB sur le chat.

Life is short...Learn more Copy Rights <> Rights to Copy

Tester présence d'un "\" dans un chemin d'accès!

2 réponses

Discussions similaires