lire fichiers texte avec séparateur

Question

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

jrivet · Answer

salut,

Fonction Split (si elle existe en vb5).... 

@+
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

 :big)

cs_lacomm · Answer

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

Lire fichiers texte avec séparateur

2 réponses

Discussions similaires