Textdatei bearbeiten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textdatei bearbeiten

24.01.2018 08:34:05

Sepp

Fehler!

24.01.2018 08:50:08

Sepp

AW: Fehler!

24.01.2018 12:16:11

Vadim

Hallo Vadim,
in ein allgemeines Modul.

' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub replaceTextInTextfile()
Dim strPath As String, strFile As String, strSearch As String, strReplace As String
Dim FF As Integer, strTemp As String

With Sheets("Tabelle1") 'Tabellenname mit den ANgaben - Anpassen!
  strPath = .Range("A1")
  strSearch = .Range("A2")
  strReplace = .Range("A3")
End With

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

strFile = Dir(strPath & "*.txt", vbNormal)

Do While strFile <> ""
  strTemp = TextReadAll(strPath & strFile)
  If Len(strTemp) Then
    strTemp = Replace(strTemp, strSearch, strReplace)
    FF = FreeFile
    Open strPath & strFile For Output As #FF
    Print #FF, strTemp
    Close #FF
  End If
  strFile = Dir
Loop


End Sub

Private Function TextReadAll(ByVal FileName As String) As String
Dim FF As Integer, strText As String

On Error Resume Next

If Dir(FileName, vbNormal) <> "" Then
  FF = FreeFile
  Open FileName For Binary As #FF
  strText = Space$(LOF(FF))
  Get #FF, , strText
  Close #FF
  TextReadAll = strText
End If

On Error GoTo 0
Err.Clear
End Function

Gruß Sepp

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub replaceTextInTextfile() Dim strPath As String, strFile As String, strSearch As String, strReplace As String Dim FF As Integer, strTemp As String With Sheets("Tabelle1") 'Tabellenname mit den Angaben - Anpassen! strPath = .Range("A1") strSearch = .Range("A2") strReplace = .Range("A3") End With If Right(strPath, 1) <> "\" Then strPath = strPath & "\" strFile = Dir(strPath & "*.txt", vbNormal) Do While strFile <> "" strTemp = TextReadAll(strPath & strFile) If Len(strTemp) Then strTemp = Replace(strTemp, strSearch, strReplace) FF = FreeFile Open strPath & strFile For Output As #FF Print #FF, strTemp Close #FF End If strFile = Dir Loop End Sub Private Function TextReadAll(ByVal FileName As String) As String Dim FF As Integer, strText As String On Error Resume Next FF = FreeFile Open FileName For Binary As #FF strText = Space$(LOF(FF)) Get #FF, , strText Close #FF TextReadAll = strText On Error GoTo 0 Err.Clear End Function

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread