full/w2hfax/addressbook.bas

Attribute VB_Name = "addressbook"
Public Type AddressBook
    name As String
    atype As Long
    filename As String
End Type

Public whfc_book(65000, 7) As String
Public whfc_book_count
Public adrbooks(100) As AddressBook
Public adrbooks_count As Long

Sub read_whfc_book(ByVal name As String)
Dim data
Dim lastpos
    Open name For Input As #1
    Input #1, data
    Close #1
    lastpos = 8
    whfc_book_count = 0
    While InStr(lastpos + 1, data, "|") > 1
        For n = 0 To 7
            whfc_book(whfc_book_count, n) = Mid(data, lastpos + 1, InStr(lastpos + 1, data, "|") - lastpos - 1)
            lastpos = InStr(lastpos + 1, data, "|")
        Next n
        whfc_book_count = whfc_book_count + 1
    Wend
End Sub

Sub write_whfc_book(name As String)
Dim m, n As Long
    Open name For Output As #1
    Print #1, "PBOOK1.1";
    For m = 0 To whfc_book_count - 1
        For n = 0 To 7
            Print #1, whfc_book(m, n); "|";
        Next n
    Next m
    Close #1
End Sub

Sub create_whfc_book(name As String)
Dim m, n As Long
    Open name For Output As #1
    Print #1, "PBOOK1.1";
    Close #1
End Sub

1	joko	1.1	Attribute VB_Name = "addressbook"
2			Public Type AddressBook
3			name As String
4			atype As Long
5			filename As String
6			End Type
7
8			Public whfc_book(65000, 7) As String
9			Public whfc_book_count
10			Public adrbooks(100) As AddressBook
11			Public adrbooks_count As Long
12
13			Sub read_whfc_book(ByVal name As String)
14			Dim data
15			Dim lastpos
16			Open name For Input As #1
17			Input #1, data
18			Close #1
19			lastpos = 8
20			whfc_book_count = 0
21			While InStr(lastpos + 1, data, "\|") > 1
22			For n = 0 To 7
23			whfc_book(whfc_book_count, n) = Mid(data, lastpos + 1, InStr(lastpos + 1, data, "\|") - lastpos - 1)
24			lastpos = InStr(lastpos + 1, data, "\|")
25			Next n
26			whfc_book_count = whfc_book_count + 1
27			Wend
28			End Sub
29
30			Sub write_whfc_book(name As String)
31			Dim m, n As Long
32			Open name For Output As #1
33			Print #1, "PBOOK1.1";
34			For m = 0 To whfc_book_count - 1
35			For n = 0 To 7
36			Print #1, whfc_book(m, n); "\|";
37			Next n
38			Next m
39			Close #1
40			End Sub
41
42			Sub create_whfc_book(name As String)
43			Dim m, n As Long
44			Open name For Output As #1
45			Print #1, "PBOOK1.1";
46			Close #1
47			End Sub
48
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26