A voir également:
- Textbox vb
- Récupérer la valeur d'un textbox d'une autre form - Meilleures réponses
- Textbox vb.net - Meilleures réponses
- Focus textbox vb.net ✓ - Forum - VB.NET
- Comment ecrire dans un TextBox... - Forum - Visual Basic
- Textbox vb.net - Forum - VB.NET
- Division entre deux textbox (VB Excel) ✓ - Forum - Visual Basic 6
- [Catégorie modifiée VB6 -> VBA] Controler le format de saisie dans un textbox VB ✓ - Forum - Visual Basic 6
9 réponses
.... VB.NET !!
Dim iPos As Integer, j As Integer
For j = 0 To text1.text.Length - 1
If Char.IsDigit(text1.text(j)) Then
iPos = j
Exit For
End If
Next j
' affichage résultat, pour chaque ligne :
If j = 0 Then
MessageBox.Show("'" & text1.text & "' ne contient aucun caractère numérique")
Else
text2.text = text1.text.Substring(0, iPos)
text3.text = text1.text.Substring(iPos))
End If
Dim iPos As Integer, j As Integer
For j = 0 To text1.text.Length - 1
If Char.IsDigit(text1.text(j)) Then
iPos = j
Exit For
End If
Next j
' affichage résultat, pour chaque ligne :
If j = 0 Then
MessageBox.Show("'" & text1.text & "' ne contient aucun caractère numérique")
Else
text2.text = text1.text.Substring(0, iPos)
text3.text = text1.text.Substring(iPos))
End If
salut,
il faut parcourir le tableau de tes données, et marquer le caractère qui est un numérique :
Private Sub Form_Load()
Dim text As String
text = "AA1" & vbCrLf & _
"BB12" & vbCrLf & _
"ABC123" & vbCrLf & _
"A123"
' tableau pour chaque ligne
Dim sLines() As String, i As Integer, iPos As Integer, j As Integer
sLines = Split(text, vbCrLf)
' boucle
For i = LBound(sLines) To UBound(sLines)
' tant que ce n'est pas un chiffre, on lit le caractère suivant
iPos = 0
For j = 1 To Len(sLines(i))
If IsNumeric(Mid$(sLines(i), j, 1)) Then
iPos = j
Exit For
End If
Next j
' affichage résultat, pour chaque ligne :
If j = 0 Then
MsgBox "'" & sLines(i) & "' ne contient aucun caractère numérique"
Else
MsgBox "'" & sLines(i) & "' : " & vbCrLf & _
Left$(sLines(i), iPos - 1) & vbCrLf & _
Mid$(sLines(i), iPos)
End If
Next i
Unload Me
End Sub
++
[hr]
il faut parcourir le tableau de tes données, et marquer le caractère qui est un numérique :
Private Sub Form_Load()
Dim text As String
text = "AA1" & vbCrLf & _
"BB12" & vbCrLf & _
"ABC123" & vbCrLf & _
"A123"
' tableau pour chaque ligne
Dim sLines() As String, i As Integer, iPos As Integer, j As Integer
sLines = Split(text, vbCrLf)
' boucle
For i = LBound(sLines) To UBound(sLines)
' tant que ce n'est pas un chiffre, on lit le caractère suivant
iPos = 0
For j = 1 To Len(sLines(i))
If IsNumeric(Mid$(sLines(i), j, 1)) Then
iPos = j
Exit For
End If
Next j
' affichage résultat, pour chaque ligne :
If j = 0 Then
MsgBox "'" & sLines(i) & "' ne contient aucun caractère numérique"
Else
MsgBox "'" & sLines(i) & "' : " & vbCrLf & _
Left$(sLines(i), iPos - 1) & vbCrLf & _
Mid$(sLines(i), iPos)
End If
Next i
Unload Me
End Sub
++
[hr]
je viens de me rendre compte que tu étais en VB.NET :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' tableau pour chaque ligne
Dim sLines() As String = {"AA1", "BB12", "ABC123", "A123"}
Dim i As Integer, iPos As Integer, j As Integer, c As Char
' boucle
For i = sLines.GetLowerBound(0) To sLines.GetUpperBound(0)
' tant que ce n'est pas un chiffre, on lit le caractère suivant
iPos = 0
For j = 0 To sLines(i).Length - 1
If Char.IsDigit(sLines(i)(j)) Then
iPos = j
Exit For
End If
Next j
' affichage résultat, pour chaque ligne :
If j = 0 Then
MessageBox.Show("'" & sLines(i) & "' ne contient aucun caractère numérique")
Else
MessageBox.Show(String.Format("'{1}' : {0}{2}{0}{3}", _
Environment.NewLine, _
sLines(i), _
sLines(i).Substring(0, iPos), _
sLines(i).Substring(iPos)))
End If
Next i
End Sub
(à part la syntaxe tu remarqueras que le fonctionnement est évidemment strictement identique)
++
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' tableau pour chaque ligne
Dim sLines() As String = {"AA1", "BB12", "ABC123", "A123"}
Dim i As Integer, iPos As Integer, j As Integer, c As Char
' boucle
For i = sLines.GetLowerBound(0) To sLines.GetUpperBound(0)
' tant que ce n'est pas un chiffre, on lit le caractère suivant
iPos = 0
For j = 0 To sLines(i).Length - 1
If Char.IsDigit(sLines(i)(j)) Then
iPos = j
Exit For
End If
Next j
' affichage résultat, pour chaque ligne :
If j = 0 Then
MessageBox.Show("'" & sLines(i) & "' ne contient aucun caractère numérique")
Else
MessageBox.Show(String.Format("'{1}' : {0}{2}{0}{3}", _
Environment.NewLine, _
sLines(i), _
sLines(i).Substring(0, iPos), _
sLines(i).Substring(iPos)))
End If
Next i
End Sub
(à part la syntaxe tu remarqueras que le fonctionnement est évidemment strictement identique)
++
astouz2000k
- Messages postés
- 50
- Date d'inscription
- samedi 2 juillet 2005
- Statut
- Membre
- Dernière intervention
- 2 mai 2013
merci
je me suis mal exprimé sur ma question
en fait j'ai qu'une de ces valeurs d'ecrite dans le textbox.
AA1 ou ABC123 ou A123 etc......
mais les chiffres et les lettres sont aléatoires.
merci
je me suis mal exprimé sur ma question
en fait j'ai qu'une de ces valeurs d'ecrite dans le textbox.
AA1 ou ABC123 ou A123 etc......
mais les chiffres et les lettres sont aléatoires.
merci
astouz2000k
- Messages postés
- 50
- Date d'inscription
- samedi 2 juillet 2005
- Statut
- Membre
- Dernière intervention
- 2 mai 2013
ok,
en fais j'ai une valeur dans une textbox composé de chiffres et de lettres.
je souhaite séparer les chiffres des lettres.
par exemple :
ex 1:
textbox 1 = ab199
ce qui donne
textbox 2 = ab
textbox 3 = 199
ex 2 :
textbox 1 : zze1
ce qui donne
textbox 2 = zze
textbox 3 = 1
merci
en fais j'ai une valeur dans une textbox composé de chiffres et de lettres.
je souhaite séparer les chiffres des lettres.
par exemple :
ex 1:
textbox 1 = ab199
ce qui donne
textbox 2 = ab
textbox 3 = 199
ex 2 :
textbox 1 : zze1
ce qui donne
textbox 2 = zze
textbox 3 = 1
merci
.... "qui peut le plus peut le moins" !!!!
le code indiqué "en boucle" fonctionne d'autant plus "sans boucle" !!!
[hr]
le code indiqué "en boucle" fonctionne d'autant plus "sans boucle" !!!
[hr]