Get specific value from .txt file using identifier VB.Net - vb.net

Question

I try to create a config file using .txt files, here I find it difficult to read the contents of the format.. already from yesterday I searched on google , but no similar case like me or maybe I missed it..
contents of .txt I have is as follows :
Cek Server IP = 192.168.10.1
Server IP = 192.168.10.1
Cek My Website = www.google.com
My Website = www.anothersite.com
this is my code :
WebControl.Source = New Uri("about:blank")
If My.Computer.Network.Ping("XXX") Then
WebControl.Source = New Uri("ZZZ")
Else
MsgBox("CANNOT CONNECT TO SERVER")
Exit Sub
End If
what i want is how to get value "192.168.10.1" From "Cek Server IP" then send to "XXX" and Get Value "192.168.10.1" from "Server IP" then send to "ZZZ"
How can i do that?
Sory for my bad english. Thanks.

Answer 1

As per my understanding, you want to read the values from your .txt file by giving its key. For that, you will have to write a function first that gets a key as a parameter and return the value:
private String GetValue(String key)
{
Boolean isValueFound = false;
String line = null;
//Open your file
using (StreamReader sr = new StreamReader("YourFile.txt"))
{
//Read it line-by-line
while ((line = sr.ReadLine()) != null)
{
//When the required line is found, set the flag and come out of the loop
if (line.Trim().StartsWith(key))
{
isValueFound = true;
break;
}
}
}
if (isValueFound)
{
//Split the line by using = as separator. So at index 0, you have the key and at index 1 you have the value
String[] strArray = line.Split('=');
//Trim the value before returning to get rid of extra spaces
return strArray[1].Trim();
}
else
{
//if value is not found, return null
return null;
}
}
Now you can call the above function like this:
//This line will give you 192.168.10.1
String result = this.GetValue("Cek Server IP");
//This line will return www.google.com
result = this.GetValue("Cek My Website");

Answer 2

For file I/O, the System.IO.File class has some useful methods, and for text files, the ReadLines method is probably what you want. You can then use String.Contains to check for the = character, and String.Split to separate the lines into key and value parts.
You could wrap this up into a class to read and parse your configuration file, and give you access to the specific values, e.g. (you will probably need some Imports and Option Infer On):
Public Class SettingsFile
Private ReadOnly _settings As IDictionary(Of String, String)
Private Sub New(settings As IDictionary(Of String, String))
_settings = settings
End Sub
Public Default ReadOnly Property Item(name As String) As String
Get
Dim value As String = Nothing
_settings.TryGetValue(name, value)
Return value
End Get
End Property
Public Shared Function Load(fileName As String) As SettingsFile
Dim settings = New Dictionary(Of String, String)()
For Each line In File.ReadLines(fileName).Where(Function(x) x.Contains("="))
Dim parts = line.Split("="c)
If parts.Count = 2 Then
settings(parts(0).Trim()) = parts(1).Trim()
End If
Next
Return New SettingsFile(settings)
End Function
End Class
You could then use this class in your code, e.g.:
Dim s = SettingsFile.Load("C:\Path\To\Settings.txt")
Dim s1 = s("Cek Server IP") ' 192.168.10.1
Dim s2 = s("Cek My Website") ' www.google.com
Dim s3 = s("Bad Key") ' Nothing