Eh, hvala puno na ovome, medjutim nasao sam neku alternativu, ali imam glup problemcic koji me muci.
Algoritam ide otprilike da se cijeli tekst ucita u varijablu string tipa, a onda red koji se obradjuje zamjeni sa istim + "OK". Medjutim, nece da mi sacuva tu varijablu na kraju :)
Code:
Public Function ReadALine(ByVal File_Path As String, ByVal TotalLine As Integer, ByVal Line2Read As Integer) As String
Dim Buffer As Array
Dim Line As String
If TotalLine <= Line2Read Then
Return "No Such Line"
End If
Buffer = File.ReadAllLines(File_Path)
Line = Buffer(Line2Read)
Return Line
End Function
Public Function GetNumberOfLines(ByVal file_path As String) As Integer
Dim sr As New StreamReader(file_path)
Dim NumberOfLines As Integer
Do While sr.Peek >= 0
sr.ReadLine()
NumberOfLines += 1
Loop
Return NumberOfLines
sr.Close()
sr.Dispose()
End Function
-------------------------
Dim filename As String = "D:\database.csv"
CurrentLine = (ReadALine(filename, GetNumberOfLines(filename), counter - 2))
'/Replace counter - 2 to line # you would like to read
Dim FILE_NAME As String = "D:\database.csv"
Dim objReader As New System.IO.StreamReader(FILE_NAME)
MyDatabase = objReader.ReadToEnd
objReader.Close()
MyDatabase = Replace(MyDatabase, CurrentLine, CurrentLine & ";OK")
TextBox4.Text = MyDatabase
If System.IO.File.Exists(FILE_NAME) = True Then
Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
objWriter.Write(MyDatabase)
objWriter.Close()
End If
Ovo je code, a ja ne pokusavam skontati sta nije OK. Prilikom provjeravanja, primetio sam da se ispravna vrednost upise u MyDatabase string, medjutim, nakon sledeceg prolaska, on jednostavno ignorise prethodnu vrijednost (tj, kao da je ne upise) pa samo u redu koji obradjujem imam stavku OK. Cim predje na sledeci, nestane sa prethocnog i pojavi se na sledecem :S