Plik tekstowy w VBA: Otwórz / Znajdź Zamień / ZapiszA / Zamknij plik
Oto pseudokod tego, co mam nadzieję zrobić:
<code>Open text File Find "XXXXX" and Replace with "YYYY" Save text File As Close text file </code>
To jest to, co mam do tej pory
<code>Private Sub CommandButton1_Click() Dim sBuf As String Dim sTemp As String Dim iFileNum As Integer Dim sFileName As String ' Edit as needed sFileName = "C:\filelocation" iFileNum = FreeFile Open sFileName For Input As iFileNum Do Until EOF(iFileNum) Line Input #iFileNum, sBuf sTemp = sTemp & sBuf & vbCrLf Loop Close iFileNum sTemp = Replace(sTemp, "DIM A", "1.75") sTemp = Replace(sTemp, "DIM B", "2.00") sTemp = Replace(sTemp, "DIM C", "3.00") sTemp = Replace(sTemp, "DIM D", "4.00") 'Save txt file as (if possible) iFileNum = FreeFile Open sFileName For Output As iFileNum Print #iFileNum, sTemp Close iFileNum 'Close Userform Unload UserForm1 End Sub </code>
Ale zamiast nadpisywania oryginalnego pliku tekstowego, chcę „zapisać jako” w nowym pliku.