|
Post by tsh73 on Jan 31, 2024 4:15:11 GMT -5
Here's code adapted off contact_lb5.bas
I used variable (x1) and array member (y(2)) as length, and variable (total) as record size Accoring to resulting file length, it used "total". (and does not check if sum of field lengths equals total)
dim y(10) y(2)=15 x1=20 total = 700 'it looks like LB5 uses this number and does not checks filed length sum
open "contact353.dat" for random as #contacts len = total field #contacts, _ x1 as name$, _ y(2) as address$, _ 15 as city$, 2 as state$, 10 as zip$, 15 as phone$, 20 as stage$, 500 as memo$, 48 as fill$
address$="Nowhere, 123" name$ = "4" put #contacts, 1 name$ = "Carlos Gomez" stage$ = "Initial Phone Call" put #contacts, 2 name$ = "Raymond Rhodes" stage$ = "Special Offer Mailer" put #contacts, 3 name$ = "Willie Weston" stage$ = "Initial Phone Call" put #contacts, 4 name$ = "Alexi Guerra" stage$ = "Special Offer Mailer" put #contacts, 5 close #contacts
print "over" run "notepad.exe "+DefaultDir$+"\contact353.dat"e
|
|