String in Array String ersetzen

Hallo Zusammen,
ich habe eine Spalte, in der in mehreren Zeilen Text steht. Nun befinden sich in diesen Zeilen diverse Platzhalter, die ich später durch die richtigen Werte, z.B. Namen ersetzen möchte, jedoch nicht in dieser Originalfassung, sondern ich möchte den Inhalt dieser Spalte Zeile für Zeile in ein Array laden und in diesem Array die Platzhalter mit den richtigen Werten, die in VBA dann vorhanden sind ersetzen.
Hoffentlich habe ich es verständlich rüber gebracht.
Sinn hinter dem Ganzen ist folgender:
In den Spalten steht untereinander jeweils Text für eine Email. In jeder Spalte ein anderer vorgegebener Text.
In diesen Zeilen kommen eben Platzhalter vor, die dann durch die korrekten Werte, z.B. der Name, erscheinen soll.
Kann man also in einem Satz, der in einem Array steht, einen Begriff suchen und durch einen anderen ersetzen? Wenn ja, bitte wie?
L.G.
Oisse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
so?

Sub test()
    Dim TextArr, TMP
    Dim ReadFile As String, Newfile As String
    Dim txtLines
    
    'Dialog öffnen 
    ReadFile = Application.GetOpenFilename("Text Files (*.txt),")
    'oder ReadFile = Test.txt" 
    
    Newfile = "X:\Temp\Neue Datei.txt"
    
    
    Close #1
    '1. Öffnen der Datei 
    Open ReadFile For Input As #1
    'Die anzahl ist nötig um die Grösse des Arrays zu deklarieren 
    'Zähler auf 0 setzen 
    txtLines = 0
    Do While Not EOF(1) ' Schleife bis Dateiende. 
        Input #1, TMP ' Hilfsvariable zum einlesen verwenden 
        'Zähler hochzählen 
        txtLines = txtLines + 1
    Loop
    'Schliessen der Datei weil Dateiende erreicht wurde 
    Close #1
    
    Redim TextArr(txtLines)
    
    '2. Öffnen der Datei 
    Open ReadFile For Input As #1
    Open Newfile For Output As #2
    txtLines = 0
    
    
    Do While Not EOF(1) ' Schleife bis Dateiende. 
        Input #1, TextArr(txtLines)
        
        'suchen nach Variablen und ersetzen durch Text 
        Select Case True
            Case InStr(TextArr(txtLines), "VariableName") > 0
                TextArr(txtLines) = Replace(TextArr(txtLines), "VariableName", "NeuerName")
                
            Case InStr(TextArr(txtLines), "VariablePLZ") > 0
                TextArr(txtLines) = Replace(TextArr(txtLines), "VariablePLZ", "Deine PLZ")
                
            Case Else
             'nichts 
        End Select
        
        'wegschreiben 
            Print #2, TextArr(txtLines)
        
        'Zähler hochzählen 
        txtLines = txtLines + 1
    Loop
    
    'Schliessen der Datei weil Dateiende erreicht wurde 
    Close #2
    Close #1

End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

String in Array String ersetzen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread