Remplacer dans une chaine de caractères à partir de la fin
daddyel
Messages postés
2
Date d'inscription
lundi 22 novembre 2004
Statut
Membre
Dernière intervention
2 janvier 2006
-
2 janv. 2006 à 00:36
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 2 janv. 2006 à 01:48
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 2 janv. 2006 à 01:48
A voir également:
- Remplacer dans une chaine de caractères à partir de la fin
- Python extraire une partie d'une chaine de caractère ✓ - Forum VB.NET
- Comment reprendre juste une partie d'une chaine de caractère ? - Forum ColdFusion
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Le format de la chaîne d'entrée est incorrect - Forum C# / .NET
- Compteur de caractères ✓ - Forum Visual Basic
1 réponse
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
2 janv. 2006 à 01:48
2 janv. 2006 à 01:48
salut
tu veux juste remplacer le dernier retour chariot par un espace?
parce que tes exemple font autre chose.....
1-> çà + espace en séparateur numérique (texte2 -> texte 2)
2-> pareil + faute de frappe?
VB6?
Option Explicit
'
'
Private Sub Form_Load()
Const sChaine1 As String = "Text1" & vbCrLf & "Texte2" & vbCrLf & "Texte3"
Const sChaine2 As String = "Text4" & vbCrLf & "Texte5" & vbCrLf & "Texte6" & vbCrLf & "Texte7"
Me.AutoRedraw = True
Me.Print "============="
Me.Print sChaine1
Me.Print "============="
Me.Print GetEnterLess(sChaine1)
Me.Print "============="
Me.Print "============="
Me.Print sChaine2
Me.Print "============="
Me.Print GetEnterLess(sChaine2)
Me.Print "============="
End Sub
'
'
Private Function GetEnterLess(ByVal sChaine) As String
Dim lPos As Long
lPos = InStrRev (sChaine, vbCrLf)
If (lPos > 0) And (lPos < Len(sChaine) - 1) Then
GetEnterLess = Left$(sChaine, lPos - 1) & " " & Right$(sChaine, Len(sChaine) - lPos - 1)
Else
GetEnterLess = sChaine
End If
End Function
<small> Coloration
syntaxique automatique [AFCK]</small>
PCPT [AFCK]
tu veux juste remplacer le dernier retour chariot par un espace?
parce que tes exemple font autre chose.....
1-> çà + espace en séparateur numérique (texte2 -> texte 2)
2-> pareil + faute de frappe?
VB6?
Option Explicit
'
'
Private Sub Form_Load()
Const sChaine1 As String = "Text1" & vbCrLf & "Texte2" & vbCrLf & "Texte3"
Const sChaine2 As String = "Text4" & vbCrLf & "Texte5" & vbCrLf & "Texte6" & vbCrLf & "Texte7"
Me.AutoRedraw = True
Me.Print "============="
Me.Print sChaine1
Me.Print "============="
Me.Print GetEnterLess(sChaine1)
Me.Print "============="
Me.Print "============="
Me.Print sChaine2
Me.Print "============="
Me.Print GetEnterLess(sChaine2)
Me.Print "============="
End Sub
'
'
Private Function GetEnterLess(ByVal sChaine) As String
Dim lPos As Long
lPos = InStrRev (sChaine, vbCrLf)
If (lPos > 0) And (lPos < Len(sChaine) - 1) Then
GetEnterLess = Left$(sChaine, lPos - 1) & " " & Right$(sChaine, Len(sChaine) - lPos - 1)
Else
GetEnterLess = sChaine
End If
End Function
<small> Coloration
syntaxique automatique [AFCK]</small>
PCPT [AFCK]
