Chaine de caracteres

Question

Bonjour, en fait j'ai un petit probl&#232;me je voulais savoir comment le r&#233;soudre.

j'ai une fonction pour reperer une chaine de caract&#232;re entre 2 parties:



----------------------------------------

Private Function ChaineEntre(Text, ChaineDebut, ChaineFin As String) As String

Dim posDebut, PosFin As Long

posDebut = InStr(1, Text, ChaineDebut) + Len(ChaineDebut)



PosFin = InStr(posDebut, Text, ChaineFin)



If PosFin = 0 Then

    ChaineEntre = ""

    Exit Function

End If



ChaineEntre = Mid(Text, posDebut, PosFin - posDebut)



End Function

----------------------------------------



et dans mon code j'utilise:



Info = ChaineEntre(TextBox, "Terrain" + " " + "1" + " " + ":", ":")

Info2 = ChaineEntre(TextBox, "Terrain" + " " + "2" + " " + ":", ":")



et dans un autre fichier j'affiche Info et Info2, jusque la pas de probl&#232;me...

seulement, si Terrain 2 n'existe pas il m'affiche un autre texte, qui n'a rien a voir (mais qui se trouve dans le fichier).



je voudrais savoir si il est possible, que si il ne trouve pas:
EXACTEMENT cette chaine ("Terrain" + " " + "2" + " " + ":") alors Info2
= ""



Merci d'avance


Protecteur

Gobillot · Answer

Private Function ChaineEntre(Text, ChaineDebut, ChaineFin As String) As String
    Dim posDebut As Long
    Dim PosFin   As Long
    posDebut = InStr(1, Text, ChaineDebut)
    If posDebut Then
       posDebut = posDebut + Len(ChaineDebut)
       PosFin = InStr(posDebut, Text, ChaineFin)
       If PosFin Then
          ChaineEntre = Mid(Text, posDebut, PosFin - posDebut)
          End If
       End If
End Function

info = ChaineEntre(TextBox, "Terrain" & " " & "1" & " " & ":", ":")
info2 = ChaineEntre(TextBox, "Terrain" & " " & "2" & " " & ":", ":")

'ou plus directement    
info = ChaineEntre(TextBox, "Terrain 1 :", ":")
info2 = ChaineEntre(TextBox, "Terrain 2 :", ":")

Daniel

951362 · Answer

merci, mais il n'y a pas une erreur dans ta source?? car la il ne m'affiche plus rien du tout

Protecteur

Gobillot · Answer

pourtant je l'ai test&#233;

Private Sub Command1_Click()
    Dim info1 As String
    Dim info2 As String
    Dim TextBox As String


    TextBox = "abcdefgTerrain 1 :001:vekvjklenkelTerrain 2 :002:bhjebvejibv"
    
    info1 = ChaineEntre(TextBox, "Terrain 1 :", ":")
    MsgBox info1
    info2 = ChaineEntre(TextBox, "Terrain 2 :", ":")
    MsgBox info2
End Sub

Daniel

951362 · Answer

je comprend pas trop, c'est possible que ce sois a cause de la longueurs du texte???

car dans tout le texte, je reprend 2 autres donn&#233;es, sa marche, mais
quand je descend un peu plus pour prendre d'autres valeurs sa marche
plus.... comment je peut faire pour pouvoir le faire???



merci d'avance


Protecteur

Gobillot · Answer

j'ai mis TextBox en String mais si tu as utilis&#233; un vrai TextBox en effet c'est limit&#233; en taille on ne peut pas mettre plus de 65535 caract&#232;res environ.
sinon je vois pas d'autre limite, les pointeurs &#233;tant d&#233;clar&#233;s en Long
&#224; moins que ton fichier d&#233;passe les 2 milliards de caract&#232;res... 

Daniel

Chaine de caracteres

5 réponses

Discussions similaires