Equivalent du split vb6 pour vb5
Soyez le premier à donner votre avis sur cette source.
Vue 4 375 fois - Téléchargée 384 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 vb6 - Meilleures réponses
- Split in vb6 - Meilleures réponses
- Fonction Split et virgule ✓ - Forum - Visual Basic
- VB6 - Problème fonction Split et virgule... ✓ - Forum - Visual Basic 6
- Split, VB.net et VB6 ✓ - Forum - VB.NET
- Vb6 global - Conseils pratiques - Visual Basic / VB.NET
- Vb6 else if - Conseils pratiques - Visual Basic / VB.NET
Bon prog
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.
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.