[aprssig] VB6 file open for APRS

[scott at opentrac.org]

I think the VB docs should explain how the file I/O commands work.

For text files, I usually just use the FileSystem object, thus:

Dim logfile As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set logfile = fs.CreateTextFile(filename, True)
logfile.WriteLine("fnord.")
logfile.Close

I think you probably want OpenTextFile and ReadLine.  Look up
FileSystemObject for more information.  It's probably not the fastest way to
do it, but it's what I use in vbscript and ASP, so consistency is more
important for me.

Scott
N1VG

-----Original Message-----
From: aprssig-bounces at lists.tapr.org
[mailto:aprssig-bounces at lists.tapr.org]On Behalf Of Andrew Rich
Sent: Tuesday, April 05, 2005 5:35 PM
To: TAPR APRS Special Interest Group
Subject: [aprssig] VB6 file open for APRS


Anybody a guru on VB6 ?

I am trying to open every log file in the LOGS directory of UI-VIEW and
reply to port 1448 (UI-VIEW server)

For some reason when I open the log file, VB6 thinks a COMMA is a
deliminator.

Ideas ?

Private Sub Command4_Click()

Open "C:\Program Files\Peak Systems\UI-View32\LOGS\20040421.TXT" For Input
As #1
Do While Not EOF(1)
Input #1, myserial
List1.AddItem myserial
Winsock1.SendData myserial & Chr$(13) & Chr$(10)

Loop




_______________________________________________
aprssig mailing list
aprssig at lists.tapr.org
https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig