Recuperer valeur d'un textbox [Résolu]
astouz2000k
- Messages postés
- 50
- Date d'inscription
- samedi 2 juillet 2005
- Dernière intervention
- 2 mai 2013
- Messages postés
- 580
- Date d'inscription
- mercredi 20 août 2008
- Dernière intervention
- 20 avril 2010
A voir également:
- Récupérer la valeur d'un textbox d'une autre form
- Recuperation valeur d'un textbox et la renvoyer dans un combobox ✓ - Forum - VB.NET
- [c#]récupérer valeur d'un TextBox dans un Repeater ✓ - Forum - ASP.NET
- Récupérer la valeur d'un textBox crée dynamiquement ✓ - Forum - ASP / ASP.NET
- Recuperation de la valeur d'une textbox ✓ - Forum - C++ & C++ .NET
- Récupérer valeur textbox en readonly ou disable en code-behind asp.net ✓ - Forum - ASP.NET
9 réponses
Meilleure réponse
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
.... 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
a aidé 106 internautes ce mois-ci
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
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
- Dernière intervention
- 3 février 2018
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
- Dernière intervention
- 2 mai 2013
- Messages postés
- 50
- Date d'inscription
- samedi 2 juillet 2005
- Dernière intervention
- 2 mai 2013
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.