Recuperer valeur d'un textbox [Résolu]
astouz2000k
Membre Dernière intervention
2 mai 2013
- - Dernière réponse :
Claiyah
Membre Dernière intervention
20 avril 2010
- 7 oct. 2009 à 17:17
- Messages postés
- 50
- Date d'inscription
- samedi 2 juillet 2005
- Statut
- Messages postés
- 580
- Date d'inscription
- mercredi 20 août 2008
- Statut
A voir également:
- Textbox vb
- Textbox vb.net - Meilleures réponses
- Récupérer la valeur d'un textbox d'une autre form - Meilleures réponses
- 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
- Explorateur de fichier Windows et TextBox VB ✓ - Forum - Visual Basic 6
- Visual Basic / VB.NET : Appuyer sur entrer dans un textbox pour valider - CodeS SourceS - Guide
- Visual Basic / VB.NET : Formater un nombre dans un textbox ex:1 => 0001 - CodeS SourceS - Guide
9 réponses
Meilleure réponse
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Statut
.... 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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
137 internautes nous ont dit merci ce mois-ci
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Statut
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]
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Statut
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)
++
- Messages postés
- 50
- Date d'inscription
- samedi 2 juillet 2005
- Statut
- Messages postés
- 50
- Date d'inscription
- samedi 2 juillet 2005
- Statut