Autor: Peter Haserodt  --- Aus Excel VBA - Gruppe: Häufige Fragen

Textdateien Lesen - Schreiben - Ändern

Autor: Peter Haserodt - Erstellt: --      - Letzte Revision: --
Textdateien erstellen, lesen, ändern ... nur zwei kleine Routinen

Erstellen Sie die nachfolgendenen Module.
Beachten Sie in Modul mdlTest den Pfad in der Sub TextTesten.

Ansonsten sollte es selbsterklärend sein.
Selbstverständlich überlasse ich es Ihnen, den Pfad etc... zu prüfen
und entsprechende Fehlerabfangungen einzubauen. Dies ist hier auch nicht das Thema.



' **************************************************************
'  Modul:  mdlTest  Typ = Allgemeines Modul
' **************************************************************

Option Explicit
	
Public Sub TextTesten()
	Dim sPfad As String, sTextRaus As String, sTextRein As String
	sPfad = "C:Eigene Dateien\MeinTest.txt" ' Pfad anpassen
	sTextRaus = "www.haserodt.de"
	dat_WriteText sPfad, sTextRaus
	sTextRein = dat_ReadText(sPfad)
	MsgBox sTextRein
	sTextRaus = sTextRein & vbCrLf & "www.online-excel.de"
	dat_WriteText sPfad, sTextRaus
	sTextRein = dat_ReadText(sPfad)
	MsgBox sTextRein
End Sub


' **************************************************************
'  Modul:  mdlTextOperationen  Typ = Allgemeines Modul
' **************************************************************

Option Explicit
Option Private Module
	
Public Function dat_ReadText(DerPfad As String) As String
	Dim sText As String, iFrei As Integer, i As Long
	On Error GoTo Fehler
	sText = ""
	iFrei = FreeFile
	Open DerPfad For Binary Access Read As #iFrei
	i = LOF(iFrei)
	sText = String(i, 0)
	Get #iFrei, , sText
	Close #iFrei
	dat_ReadText = sText
	Exit Function
	Fehler:
	MsgBox Err.Description
End Function
	
Public Sub dat_WriteText(DerPfad As String, DerText As String)
	Dim iFrei As Integer
	On Error GoTo Fehler
	iFrei = FreeFile
	Open DerPfad For Output As #iFrei
	Print #iFrei, DerText;
	Close #iFrei
	Exit Sub
	Fehler:
	MsgBox Err.Description
End Sub


Weitere Artikel der Gruppe: Häufige Fragen Aus Excel VBA
Nach oben
ToDo
Google Werbung