Bom colega possuo dois projetos que fazem isto, um seria este que veirfica qual linha possui tal string:
exemplo:
suponha que você possua uma linha que contenha a seguinte string:
LOGON = ON
e você queira alterar para
LOGON = OFF
isto sem alterar o restante do arquivo então utilize deste código
Private Sub Command1_Click()
Dim PathName As String, Alterar As String
Dim Linha As String, InLine As String
Dim TempFile As String
Dim F As Integer
Dim F2 As Integer
PathName = "c:\Teste.txt"
TempFile = App.Path & Format(Time, "hhnnss") & ".TMP" ' arquivo temporário
F = FreeFile
Open PathName For Input As #F
F2 = FreeFile
Open TempFile For Output As #F2
Do While Not EOF(F)
Line Input #F, InLine
Alterar = "LOGON = ON"
If InStr(1, InLine, Alterar) <> 0 Then
Linha = "LOGON = OFF"
Print #F2, Linha
Else
Print #F2, InLine
End If
Loop
Close #F
Close #F2
'
' Troca o arquivo antigo pelo novo
'
Kill PathName
Name TempFile As PathName
End Sub
Bom o código acima funciona perfeitamente desde que haja uma comparação exata, ou seja as não diferencia maiusculas de minusculas e nem espa~ços a string deve ser exetamente igual para fazer a comparação, mas com alguns ajustes você pode conternar isto.
