Equivalent du split vb6 pour vb5
Soyez le premier à donner votre avis sur cette source.
Vue 4 296 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
- Conversion d'un projet vb6 en vb5 - Codes sources - Visual Basic / VB.NET (Divers)
- Convertisseur de projet vb6 en vb5 - Codes sources - Visual Basic / VB.NET (API)
- Visual Basic / VB.NET : Visual basic craker (( convertir projet vb6 vers vb5 )) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir un projet vb6 en vb5 - CodeS SourceS - Guide
- Traduire vb6 vers vb5 ✓ - Forum - Visual Basic 6
Commentaires
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.