A voir également:
- 1/suppression d'un caractère dans une chaîne - 2/ comparaison de deux chaines de
- Python extraire une partie d'une chaine de caractère - Forum ColdFusion
- Python extraire chaine de caractère ✓ - Forum VB.NET
- Application de loto turbo 2 - Forum C / C++ / C++.NET
- Vba compter le nombre de caractère dans une chaine - Forum Visual Basic
- Extraire une chaine de caractère contenu entre deux balises - Forum PHP
2 réponses
Salut,
1) pour enlever tes "e"
Sub enleve()
letexte = "une phrase se termine par un point."
longueur = Len(letexte)
For i = 1 To longueur
If Mid$(letexte, i, 1) = "e" Then
If i = 1 Then
letexte = Mid$(letexte, 2, longueur - 1)
End If
If i > 1 Then
letexte = Mid$(letexte, 1, i - 1) & Mid$(letexte, i + 1, longueur - i)
i = 1
End If
Next i
End Sub
2) pour comparer comme tu veux tes 2 string , je pense qu il faut dans un premier temps les "réduire à l'essentiel" et ensuite les comparer :
Sub compare()
text1 = "aaabbcccddeeffgg"
text2 = "abcccdddeefg"
i = 0
longueur1 = Len(text1)
longueur2 = Len(text2)
firstcar = Mid$(text1, 1, 1)
newtext1 = newtext1 + firstcar
For i = 1 To longueur1
othercar = Mid$(text1, i, 1)
If othercar <> firstcar Then
newtext1 = newtext1 + othercar
firstcar = othercar
End If
Next
secondcar = Mid$(text2, 1, 1)
newtext2 = newtext2 + secondcar
For i = 1 To longueur2
othercar2 = Mid$(text2, i, 1)
If othercar2 <> secondcar Then
newtext2 = newtext2 + othercar2
secondcar = othercar2
End If
Next
If newtext1 = newtext2 Then MsgBox ("pareils") Else MsgBox ("pas pareils")
End Sub
il y a petre plus simple, mais ça marche. Qu en penses tu ?
@+
1) pour enlever tes "e"
Sub enleve()
letexte = "une phrase se termine par un point."
longueur = Len(letexte)
For i = 1 To longueur
If Mid$(letexte, i, 1) = "e" Then
If i = 1 Then
letexte = Mid$(letexte, 2, longueur - 1)
End If
If i > 1 Then
letexte = Mid$(letexte, 1, i - 1) & Mid$(letexte, i + 1, longueur - i)
i = 1
End If
Next i
End Sub
2) pour comparer comme tu veux tes 2 string , je pense qu il faut dans un premier temps les "réduire à l'essentiel" et ensuite les comparer :
Sub compare()
text1 = "aaabbcccddeeffgg"
text2 = "abcccdddeefg"
i = 0
longueur1 = Len(text1)
longueur2 = Len(text2)
firstcar = Mid$(text1, 1, 1)
newtext1 = newtext1 + firstcar
For i = 1 To longueur1
othercar = Mid$(text1, i, 1)
If othercar <> firstcar Then
newtext1 = newtext1 + othercar
firstcar = othercar
End If
Next
secondcar = Mid$(text2, 1, 1)
newtext2 = newtext2 + secondcar
For i = 1 To longueur2
othercar2 = Mid$(text2, i, 1)
If othercar2 <> secondcar Then
newtext2 = newtext2 + othercar2
secondcar = othercar2
End If
Next
If newtext1 = newtext2 Then MsgBox ("pareils") Else MsgBox ("pas pareils")
End Sub
il y a petre plus simple, mais ça marche. Qu en penses tu ?
@+
