Split de VB 6
cs_joro
Messages postés
71
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
21 septembre 2007
-
10 févr. 2005 à 10:56
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 10 févr. 2005 à 11:13
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 10 févr. 2005 à 11:13
A voir également:
- Split de VB 6
- Split vb ✓ - Forum VB.NET
- Vba split ✓ - Forum Visual Basic 6
- Fonction Split et virgule ✓ - Forum Visual Basic
- Delphi split string - Forum Delphi / Pascal
- Split c# ✓ - Forum C# / .NET
1 réponse
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
10 févr. 2005 à 11:13
10 févr. 2005 à 11:13
Il n'y a pas d'équivalent et la fonction split n'existe pas en VB5.
Voici le codage de la fonction Split de VB6, elle marche en VB5
Public Function Split(ByVal sIn As String, _
Optional sDelim As String = "", _
Optional nLimit As Long = -1, _
Optional bCompare As VbCompareMethod = vbBinaryCompare) As Variant
Dim nC As Long, nPos As Long, nDelimLen As Long
Dim sOut() As String
If sDelim <> "" Then
nDelimLen = Len(sDelim)
nPos = InStr(1, sIn, sDelim, bCompare)
Do While nPos
ReDim Preserve sOut(nC)
sOut(nC) = Left(sIn, nPos - 1)
sIn = Mid(sIn, nPos + nDelimLen)
nC = nC + 1
If nLimit <> -1 And nC >= nLimit Then Exit Do
nPos = InStr(1, sIn, sDelim, bCompare)
Loop
End If
ReDim Preserve sOut(nC)
sOut(nC) = sIn
Split = sOut
End Function
Voici le codage de la fonction Split de VB6, elle marche en VB5
Public Function Split(ByVal sIn As String, _
Optional sDelim As String = "", _
Optional nLimit As Long = -1, _
Optional bCompare As VbCompareMethod = vbBinaryCompare) As Variant
Dim nC As Long, nPos As Long, nDelimLen As Long
Dim sOut() As String
If sDelim <> "" Then
nDelimLen = Len(sDelim)
nPos = InStr(1, sIn, sDelim, bCompare)
Do While nPos
ReDim Preserve sOut(nC)
sOut(nC) = Left(sIn, nPos - 1)
sIn = Mid(sIn, nPos + nDelimLen)
nC = nC + 1
If nLimit <> -1 And nC >= nLimit Then Exit Do
nPos = InStr(1, sIn, sDelim, bCompare)
Loop
End If
ReDim Preserve sOut(nC)
sOut(nC) = sIn
Split = sOut
End Function
