Hai,
ini pernah dibahas, cuma kasusnya agak beda, jadi copy paste jawaban
yang dulu ya:
1. buat project baru
2. tambahkan project references: Microsoft Scripting Runtime
3. Buat text file misalnya "setting.ini" di "C:", isinya seperti tadi:
nama_database = test.mdb
nama_user =root
password = pass_root
4. Copy paste code dibawah ini dalam Procedure Main saat program
mulai dijalankan
'===========================================================
Public gNamaDatabase As String
Public gNamaUser As String
Public gPassword As String
Private mFSO As New FileSystemObject
Private mFile1 As File
Private mts As TextStream
Private mFileSpec As String
Option Explicit
Sub Main()
ProsedurBacaVariabelText
End Sub
Private Sub ProsedurBacaVariabelText()
Dim vText As String
mFileSpec = "C:\setting.ini"
If mFSO.FileExists(mFileSpec) Then
Set mFile1 = mFSO.GetFile(mFileSpec)
Set mts = mFile1.OpenAsTextStream(ForReading)
Do While Not mts.AtEndOfStream
vText = mts.ReadLine
If UCase(Left(vText, 16)) = "NAMA_DATABASE = " Then
gNamaDatabase = Trim(Right(vText, Len(vText) -16))
If UCase(Left(vText, 12)) = "NAMA_USER = " Then gNamaUser
= Trim(Right(vText, Len(vText) - 12))
If UCase(Left(vText, 11)) = "PASSWORD = " Then gPassword
= Trim(Right(vText, Len(vText) - 11))
Loop
mts.Close
End If
End Sub
'===========================================================
Semoga membantu,
F
in Code we trust..
--- In [email protected], Celes Victoria
<[EMAIL PROTECTED]> wrote:
>
> halo mat siang...
> mo tanya ...
> gmana cara buat variable dmana variable itu didapatkan dari file txt
> ...saya sih sudah pernah hanya menggunakan array contohnya
>
> test.mdb
> root
> pass_root
>
> tp yg saya mau gmana klo...
>
> nama_database = test.mdb
> nama_user =root
> password = pass_root
>
> sehingga saat di execute.. di program tsb sudah menyimpan variable
tsb/mengcreate variable beserta isinya....
>
> ada yang tau....
> trima kasih
>
>
>
>
>
> ---------------------------------
>
> Real people. Real questions. Real answers. Share what you know.
>
> [Non-text portions of this message have been removed]
>
