I'm trying to make a Query generator using Excel (VBA), but I'm not able to manipulate some data inside a .sql file.
Eg:
Select *
From Tabela t
Where t.id = 1
<PROP>
Whenever he finds a line that is written PROP he should swap for the value in cell H3, and at the end save the file.
I can already read the file to the end, but I can not change the PROP value by the value in the H3 cell.
To get better explained.
Dim strTextLine
Dim strTextFile
Dim intFileNumber
'Nome completo do arquivo a ser aberto
strTextFile = "C:\Users\Desktop\Query.sql"
'Criar numeração
intFileNumber = 1
'Criar conexão com o arquivo txt
Open strTextFile For Input As #intFileNumber '<- Input ou Append?
'Loop para percorrer as linhas do arquivo até o seu final
Do While Not EOF(intFileNumber)
Line Input #intFileNumber, strTextLine
If (strTextLine = "<PROP>") Then
'como faço para alterar a tag <PROP> por um valor que está em uma variavel?
' Já consegui encontrar a linha só não sei como altero o valor no arquivo.
End If
Loop
'Fechar a conexão com o arquivo
Close #intFileNumber
Sincerely,