Separer une chaine...
cs_Titant
Messages postés
103
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
21 juillet 2008
-
7 mars 2006 à 01:56
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 7 mars 2006 à 02:59
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 7 mars 2006 à 02:59
A voir également:
- Separer une chaine...
- Parcourir une chaine de caractère en python - Forum Python
- Chaine de caractère ✓ - Forum Python
- Sql découper une chaîne séparateur - Forum Delphi / Pascal
- Le format de la chaîne d'entrée est incorrect ✓ - Forum C# / .NET
- Trouver toutes les positions d'une lettre dans une chaine - Forum Python
2 réponses
cs_Titant
Messages postés
103
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
21 juillet 2008
7 mars 2006 à 02:16
7 mars 2006 à 02:16
DSL pour le derangement j'ai finalement trouvé. Suffit d'utiliser la fonction split pufff suis bête. ^^
Je donne quand même la reponse à moi meme si jamais j'ai un trou de memoire :) et puis on sais jamais ca peu tj servir:
Dim cut() As String
cut = Split(Text1.Text, ":")
Text2.Text = cut(0)
Text3.Text = cut(1)
Titant...
Je donne quand même la reponse à moi meme si jamais j'ai un trou de memoire :) et puis on sais jamais ca peu tj servir:
Dim cut() As String
cut = Split(Text1.Text, ":")
Text2.Text = cut(0)
Text3.Text = cut(1)
Titant...
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
7 mars 2006 à 02:59
7 mars 2006 à 02:59
salut,
réserve-toi le Split pour des recherches plus difficiles.
c'est une fonction assez lourde et inutile juste pour une seule découpe.
Option Explicit
Private Sub Form_Load()
Const sChaine As String = "85.32.188.166:80"
Dim iPos As Integer
iPos = InStr (1, sChaine, ":")
If iPos = 0 Then
MsgBox "':' non trouvé!!"
Else
Text2.Text = Left$(sChaine, iPos - 1)
Text3.Text = Right$(sChaine, Len(sChaine) - iPos)
End If
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
++
PCPT [AFCK]
réserve-toi le Split pour des recherches plus difficiles.
c'est une fonction assez lourde et inutile juste pour une seule découpe.
Option Explicit
Private Sub Form_Load()
Const sChaine As String = "85.32.188.166:80"
Dim iPos As Integer
iPos = InStr (1, sChaine, ":")
If iPos = 0 Then
MsgBox "':' non trouvé!!"
Else
Text2.Text = Left$(sChaine, iPos - 1)
Text3.Text = Right$(sChaine, Len(sChaine) - iPos)
End If
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
++
PCPT [AFCK]
