VBA, Daten an Zeile einer txt-Datei anhängen

Computer: Software & Programmierung Programmierung allgemein
#1

Hallo lieber VBA-Experte,

noch bin ich ein Anfänger im Programmieren, möchte es aber nach und nach lernen. Gerade versuche ich mich an einem Text-Verschlüsselungs-Programm:Ich möchte Daten, also Text, aus einer txt-Datei Zeichen für Zeichen auslesen und einzeln in eine andere txt-Datei schreiben. Zwischendurch natürlich verschlüsseln, z.B. den ASCII Code minus zwei oder ähnlich. Das Problem habe ich beim Schreiben in die Datei: Jeder einzelne Buchstabe landet immer in einer einzelnen Zeile, also untereinander. So dass ich senkrecht lesen muss… Wie kann ich selbst festlegen, wann in die nächste Zeile der Datei geschrieben wird?

Ich konnte bisher nirgends einen Hinweis finden und würde mich sehr über Tipps von Ihnen freuen!
Mit freundlichen Grüßen,
Frank

#2

Hallo Frank,
habe deine Aufgabe erst jetzt gelesen.
Hier ist ein Antwort auf deine Frage.
Grüße Basic N.
Public Sub WriteANSItoASCII()
Dim fs As New FileSystemObject
Dim tsDsc As TextStream
Dim tsSrc As TextStream
Dim strLine As String
Dim strLineSrc As String
Dim strPathDsc As String
Dim strPathSrc As String
Dim iC As Integer
strPathDsc = Application.CurrentProject.Path & „\txtEncrypt.txt“
strPathSrc = Application.CurrentProject.Path & „\txtCrypt.txt“
If fs.FileExists(strPathDsc) = False Then
Exit Sub
End If
If fs.FileExists(strPathSrc) = False Then
fs.CreateTextFile strPathSrc, True
End If
Set tsDsc = fs.OpenTextFile(strPathDsc, ForReading)
Set tsSrc = fs.OpenTextFile(strPathSrc, ForWriting)
Do While Not tsDsc.AtEndOfStream
strLine = tsDsc.ReadLine
strLineSrc = „“
'hier kommt die Verschlüsselung
'Code soll mit eigene Verschlüsselung angepasst werden
For iC = 1 To Len(strLine)
strLineSrc = strLineSrc & Asc(Mid(strLine, iC, 1)) - 2
Next
tsSrc.WriteLine strLineSrc
Loop
tsDsc.Close
tsSrc.Close
End Sub