addr.bas

利用Visual Basic编写的小程序

Attribute VB_Name = "Module1"
Public Type Addr
    Name As String * 4          '姓名
    Sex As Boolean              '性别
    Birthday As Date            '生日
    City As String * 20         '所在城市
    Title  As String * 6        '职务职称
    Company As String * 30      '工作单位
    Address As String * 30      '地址
    Tel_Home As String * 8      '住宅电话
    Tel_Office As String * 8    '办公电话
    Mobile As String * 11       '手机
    PostalCode As String * 6    '邮编
    Email As String * 40        '电子邮件地址
    photo As Boolean            '是否有照片
    Deleted As Boolean          '是否被删除
    Modified As Boolean         '是否被修改
End Type

Public Addrs() As Addr          '通讯录信息
Public RecNum As Integer        '通讯录记录数

Public Cities() As String       '城市名称
Public Titles() As String       '职务名称


Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long


Public Function DivideString(s As String, d As String, a() As String) As Integer
    's:字符串,d:分隔符,a结果数组,返回值为分隔的段数
    Dim i As Integer
    Dim j As Integer
    Dim num As Integer
    i = InStr(s, d)
    j = 1
    Do While i > 0
        num = num + 1
        ReDim Preserve a(num)
        a(num) = Mid(s, j, i - j)
        j = i + 1
        i = InStr(j, s, d)
    Loop
    num = num + 1
    ReDim Preserve a(num)
    a(num) = Mid(s, j, Len(s) - j + 1)
    DivideString = num
End Function