🚀 go-pugleaf

On Wed, 23 Oct 2002 13:39:22 GMT, "news.pandora.be" <cdr@pandora.be>
wrote:

>sorry als ik de vorige keer niet duidelijk genoeg was,
>dus , second try
>
>Ik heb dus een TXT bestand met hierin een log van de binnenkomende (of
>uitgaande) faxen.
>nu ben ik een administratieprogramma aan het schrijven en ik zou graag dit
>bestand gemakkelijk kunnen uitlezen.
>eigelijk zou ik deze file graag kunnen zien net als een access bestand waar
>ik dmv sql instrukties kan gaan sorteren op datum, nr , enz
>zijn hier simpele tools voor te vinden (of te schrijven en hoe dan)
>
>hopelijk is dit wat duidelijker.
>een voorbeeld van zul een log bestand staat hieronder
>
>thanks,
>
>
>
>
>
>Date,Time,RemoteID,CallDuration,PagesReceived,Result,Info,Port,FileInArchive
>Dir,RoutedTo
>
>"2/18/01","9:49:14 PM","","00:41","0","FAILURE","Handshaking
>failed","Line0","",""
>"2/18/01","9:49:59 PM","","00:44","0","FAILURE","No carrier : Possible voice
>call","Line1","",""
>"2/18/01","9:50:57 PM","00 32 15 25 00
>00","00:25","1","FAILURE","Handshaking failed","Line1","",""
>"2/18/01","9:54:00 PM","00 32 15 25 00 00","01:26","1","SUCCESS","Fax
>received from 00 32 15 25 00 00","Line1","","carl@xxx.xxx.com"
>

In VB is dit quite simple
lees het bestand uit met ms scripting runtime (effe vermelden in uw
references)
en met de functie split() stop je de verschillende velden in een array
of waar je maar wilt.
een voorbeeld :

dim datascan as variant
bestand = "c:\bestand"
If fs.FileExists(bestand) Then

   Open bestand For Input As #1
   Do While Not EOF(1)
      Line Input #1, teststring
       datascan = Split(teststring, ",", -1, vbTextCompare)
   ......
       datascan(0) = eerste veldje
       enz...


In uw geval zal je nog de quotes er moeten uitfilteren, denk ik


gd