vb ini 读取服务器信息,VB读取CONFIG.INI文件里面的数据库配置信息，下面是写的部分语句，怎么修改成读取的？...

满意答案

h5k9rd9n1l

2013.08.20

采纳率：45%    等级：12

已帮助：4822人

Private Sub Command1_Click()

Dim FStr As String

Dim MyString As String

FStr = ""

Open "\config1.ini" For Input As #1 ' 打开输入文件。

Do While Not EOF(1) ' 循环至文件尾。

Input #1, MyString ' 将数据读入变量。

FStr = FStr & MyString & Chr(13) & Chr(10)

Loop

Close #1

Dim L As Integer

Dim M As Integer

L = InStr(FStr, "User Id")

M = InStr(L, FStr, vbCrLf)

Print "User Id = "; Mid(FStr, L + 8, M - (L + 8))

L = InStr(FStr, "Password")

M = InStr(L, FStr, vbCrLf)

Print "Password = "; Mid(FStr, L + 9, M - (L + 9))

L = InStr(FStr, "Initial Catalog")

M = InStr(L, FStr, vbCrLf)

Print "Initial Catalog = "; Mid(FStr, L + 16, M - (L + 16))

L = InStr(FStr, "Data Source")

M = InStr(L, FStr, vbCrLf)

Print "Data Source = "; Mid(FStr, L + 12, M - (L + 12))

End Sub

00分享举报