Erstatt tekst i en tekstfil ved hjelp av VBA i Microsoft Excel

Anonim

Makroene nedenfor kan brukes til å erstatte tekst i en tekstfil,
f.eks. når du vil endre en kolonneutskiller i en tekstfil
før du importerer det til et Excel -regneark eller etter at du eksporterer et regneark til en tekstfil.

Sub ReplaceTextInFile (SourceFile As String, _ sText As String, rText As String) Dim TargetFile As String, tLine As String, tString As String Dim p As Integer, i As Long, F1 As Integer, F2 As Integer TargetFile = "RESULT.TMP "If Dir (SourceFile) =" "Then Exit Sub If Dir (TargetFile)" "Then On Error Resume Next Kill TargetFile On Error GoTo 0 If Dir (TargetFile)" "Then MsgBox TargetFile & _" allerede åpner, lukk og slett / gi nytt navn til filen og prøv igjen. ", _ vbCritical Exit Sub End If End If F1 = FreeFile Open SourceFile For Input As F1 F2 = FreeFile Open TargetFile For Output As F2 i = 1 'line counter Application.StatusBar =" Lese data fra " & _ TargetFile & "…" While Not EOF (F1) If i Mod 100 = 0 Then Application.StatusBar = _ "Reading line #" & i & "in" & _ TargetFile & "…" Line Input #F1, tLine If sText "" Deretter ReplaceTextInString tLine, sText, rText End If Print #F2, tLine i = i + 1 Wend Application.StatusBar = "Closing files …" Close F1 Close F2 Kill SourceFile 'delete or iginal filnavn TargetFile As SourceFile 'gi nytt navn til midlertidig fil Application.StatusBar = False End Sub Private Sub ReplaceTextInString (SourceString As String, _ SearchString As String, ReplaceString As String) Dim p As Integer, NewString As String Do p = InStr (p + 1 , UCase (SourceString), UCase (SearchString)) Hvis p> 0 Bytt deretter SearchString med ReplaceString NewString = "" Hvis p> 1 Da NewString = Mid (SourceString, 1, p - 1) NewString = NewString + ReplaceString NewString = NewString + Mid (SourceString, _ p + Len (SearchString), Len (SourceString)) p = p + Len (ReplaceString) - 1 SourceString = NewString End If If p> = Len (NewString) Så p = 0 Sløyfe Til p = 0 Avslutt Sub Sub TestReplaceTextInFile () ReplaceTextInFile ThisWorkbook.Path & _ "\ ReplaceInTextFile.txt", "|", ";" 'erstatter alle rørtegn (|) med semikolon (;) End Sub