Equivalent du split vb6 pour vb5
Soyez le premier à donner votre avis sur cette source.
Vue 4 542 fois - Téléchargée 401 fois
Description
Bon voici à la demande de certain un façon de faire un SPLIT en VB5 ...
Codes Sources
A voir également
- Vb6 split
- Split in vb6 - Meilleures réponses
- Split vb net - Meilleures réponses
- VB6 - Problème fonction Split et virgule... ✓ - Forum - Visual Basic 6
- Split, VB.net et VB6 ✓ - Forum - VB.NET
- Split vb6 ✓ - Forum - Visual Basic
- Vb6 global variable - Conseils pratiques - Visual Basic / VB.NET
- Vb6 api - Conseils pratiques - Visual Basic / VB.NET
17 déc. 2011 à 13:47
24 mai 2002 à 09:53
Bon prog
24 mai 2002 à 09:43
Ci-après ma solution qui vaut ce qu'elle vaut (j'utilise les mêmes contrôles que fredlynx) :
'-----// Début du code
Private Sub Command2_Click()
'----- Déclaration des variables locales
Dim Tb() As String
Dim Ind As Long
'----- Ma fonction split
Splt Text1, Text2, Tb()
'----- Reprise du code de fredlynx pour afficher le résultat
For Ind = 1 To UBound(Tb)
Text3.Text = Text3.Text & Tb(Ind) & vbCrLf
Next Ind
End Sub
Public Sub Splt(TMsg As String, TCar As String, Tbl() As String)
'----- Déclaration des variables locales
Dim Ind As Long
ReDim Tbl(0)
'----- Boucle de calcul
Ind = InStr(TMsg, TCar)
Do While Ind <> 0
ReDim Preserve Tbl(UBound(Tbl) + 1)
Tbl(UBound(Tbl)) = Left$(TMsg, Ind - 1)
TMsg = Mid$(TMsg, Ind + 1)
Ind = InStr(TMsg, TCar)
Loop
ReDim Preserve Tbl(UBound(Tbl) + 1)
Tbl(UBound(Tbl)) = TMsg
End Sub
'-----// Fin du code
Dans tous les cas grand merci à fredlynx pour son code.
23 mai 2002 à 23:42
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.