' **************************************************************
'  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