Turinys
Žemiau esančias makrokomandas galima naudoti teksto failo tekstui pakeisti,
pvz. kai teksto faile norite pakeisti stulpelių skyriklį
prieš importuodami jį į „Excel“ darbalapį arba eksportuodami darbalapį į teksto failą.
Sub ReplaceTextInFile (Šaltinio failas kaip eilutė, _ sTekstas kaip eilutė, rTekstas kaip eilutė) Dim TargetFile kaip eilutė, tLine kaip eilutė, tString kaip eilutė Dim p kaip sveikasis skaičius, i tol, F1 kaip sveikasis skaičius, F2 kaip sveikasis skaičius TargetFile = "RESULT.TMP "If Dir (SourceFile) =" "Tada išeikite iš Sub If Dir (TargetFile)" "Tada On Error Resume Next Kill TargetFile On Error GoTo 0 If Dir (TargetFile)" "Tada MsgBox TargetFile & _" jau atidarytas, uždarykite ir ištrinkite / pervardykite failą ir bandykite dar kartą. ", _ vbCritical Exit Sub End If End & _ TargetFile & "…" Nors nėra EOF (F1) Jei i Mod 100 = 0 Tada Application.StatusBar = _ "Skaitymo eilutė #" & i & "" & _ TargetFile & "…" eilutės įvestis #F1, tLine If sText "" Tada 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 iginalinis failo pavadinimas , UCase (SourceString), UCase (SearchString)) Jei p> 0, tada pakeiskite SearchString į ReplaceString NewString = "" If p> 1 then NewString = Mid (SourceString, 1, p - 1) NewString = NewString + ReplaceString NewString = NewString + Vidurinis (šaltinio eilutė, _ p + Len (paieškos eilutė), Len (šaltinio eilutė)) p = p + len (pakeiskite eilutę) - 1 šaltinio eilutė = nauja eilutės pabaiga, jei p> = Len (nauja eilutė), tada p = 0 kilpa, kol p = 0 Pabaigos antrinis testasReplaceTextInFile () ReplaceTextInFile ThisWorkbook.Path & _ "\ ReplaceInTextFile.txt", "|", ";" “pakeičia visus simbolius (|) kabliataškiais (;) End Sub
