01.
Imports
System.IO
02.
03.
Sub
WriterCONFIGFOREST()
04.
Try
05.
Dim
objStreamWriter
As
StreamWriter
06.
objStreamWriter =
New
StreamWriter(
"C:\DataConfig.txt"
)
07.
objStreamWriter.WriteLine(
"::::::LOGIN::::::"
)
08.
objStreamWriter.WriteLine(TxtServerName.Text)
09.
objStreamWriter.WriteLine(TxtDatabase.Text)
10.
objStreamWriter.WriteLine(TxtUser.Text)
11.
objStreamWriter.WriteLine(TxtPass.Text)
12.
objStreamWriter.Close()
13.
Catch
ex
As
Exception
14.
End
Try
15.
End
Sub
16.
Try
17.
Dim
objStreamReader
As
StreamReader
18.
Dim
strLine
As
String
19.
Dim
lc
As
Integer
= 0
20.
objStreamReader =
New
StreamReader(
"C:\DataConfig.txt"
)
21.
strLine = objStreamReader.ReadLine
22.
Do
While
Not
strLine
Is
Nothing
23.
Console.WriteLine(strLine)
24.
strLine = objStreamReader.ReadLine
25.
lc += 1
26.
If
lc = 1
Then
27.
TxtServerName.Text = strLine
28.
ElseIf
lc = 2
Then
29.
TxtDatabase.Text = strLine
30.
ElseIf
lc = 3
Then
31.
TxtUser.Text = strLine
32.
ElseIf
lc = 4
Then
33.
TxtPass.Text = strLine
34.
End
If
35.
Loop
36.
objStreamReader.Close()
37.
Console.ReadLine()
38.
Catch
ex
As
Exception
39.
End
Try