Lire fichiers texte avec séparateur

Signaler
Messages postés
3
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
4 octobre 2004
-
Messages postés
299
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
-
Bonjour,
Comment lire un fichier texte avec les champs séparés par :
dans un fichier en VB5
Merci de votre réponse
Cordialement
Jean Jacques

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
46
salut,

Fonction Split (si elle existe en vb5)....

@+
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

:big)
Messages postés
299
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
1
Je crois que split n'existe pas en VB5, mais j'ai vu sur www.planet-source-code.com une ou des fonctions qui splittent avec Parse.
J'ai pas essayé. Voici l'adresse et le code:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=6280&lngWId=1

' Name: A 'Parse' function.
' Description:To split a string into pie
' ces using a certain character as a delim
' iter. I do not want to get messages sayi
' ng, "use the Split() function" as this i
' sn't present in VB5.
Example of this is "hello To you", With the delimiter as " ". You'll Get back 3 variables, one containing "hello", one containing "to" and one containing "you"
' By: Danny Young
' Inputs:The string thats going to be sp
' lit and the delimiter in which to split
' it with.
' Returns:An array of parsed words from the string
' Assumes:Put a button on a form, and leave it as the default name
'This code is copyrighted and has
' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=6280&lngWId=1 for details.

Option Explicit
Private Sub Command1_Click()
Dim A As Variant
Dim i As Integer
i = 1
A = Parse("hello To you", " ")
Do While A(i) <> ""
MsgBox A(i)
i = i + 1
Loop
end Sub

Public Function Parse(sIn As String, sDel As String) As Variant

Dim i As Integer, x As Integer, s As Integer, t As Integer
i 1: s 1: t = 1: x = 1

ReDim tArr(1 To x) As Variant
If InStr(1, sIn, sDel) <> 0 Then
Do
ReDim Preserve tArr(1 To x) As Variant
tArr(i) = Mid(sIn, t, InStr(s, sIn, sDel) - t)
t = InStr(s, sIn, sDel) + Len(sDel)
s = t
If tArr(i) <> "" Then i = i + 1
x = x + 1
Loop Until InStr(s, sIn, sDel) = 0
ReDim Preserve tArr(1 To x) As Variant
tArr(i) = Mid(sIn, t, Len(sIn) - t + 1)
Else
tArr(1) = sIn
End If
Parse = tArr
End Function