Hallo Leute,
Ich möchte mir ein Tool erstellen in dem ich geziehlt den Inhalt von Textdateien überspielen kann.
Programmbeschreibung:
Neben einer Textbox befindet sich ein Button, wenn man ihn anwählt öffnet sich die Dialogbox. Man wählt nun die Datei aus, dessen Pfad nach dem "Öffnen" in der Textbox stehen soll. Dieser Pfad wird gespeichert.
Darunter bedindet sich eine Richbox und ein Button mit der aufschrift "ändern". Nun zur eigentlichen Funktion:
Wenn man auf "ändern" klickt, soll der Inhalt der Textdatei (dessen Pfad in der Textbox eingelesen wurde) mit dem Text in der Richtextbox überspielt werden.
Wie mach Ich das?
Nicht wundern, bin neuling und versuche mir das weitesgehen selbst beizubringen... Im Vorraus schonmal vielen Dank für eure Hilfe.
Ich möchte mir ein Tool erstellen in dem ich geziehlt den Inhalt von Textdateien überspielen kann.
Programmbeschreibung:
Neben einer Textbox befindet sich ein Button, wenn man ihn anwählt öffnet sich die Dialogbox. Man wählt nun die Datei aus, dessen Pfad nach dem "Öffnen" in der Textbox stehen soll. Dieser Pfad wird gespeichert.
Darunter bedindet sich eine Richbox und ein Button mit der aufschrift "ändern". Nun zur eigentlichen Funktion:
Wenn man auf "ändern" klickt, soll der Inhalt der Textdatei (dessen Pfad in der Textbox eingelesen wurde) mit dem Text in der Richtextbox überspielt werden.
Wie mach Ich das?
Nicht wundern, bin neuling und versuche mir das weitesgehen selbst beizubringen... Im Vorraus schonmal vielen Dank für eure Hilfe.
Quellcode
- Private Sub Öffnen()
- CommonDialog1.CancelError = True
- On Error GoTo ErrHandle
- CommonDialog1.Filter = _
- "Alle Formate (*.*)|*.*"
- CommonDialog1.Flags = cdlOFNPathMustExist + cdlOFNHideReadOnly + _
- cdlOFNFileMustExist
- CommonDialog1.ShowOpen
- Text1.Text = CommonDialog1.FileName
- On Error GoTo 0
- Exit Sub
- ErrHandle:
- If Not Err = cdlCancel Then
- Resume Next
- End If
- End Sub
- Private Sub browse_click_Click()
- Öffnen
- End Sub
- Private Sub Ändern_Click()
- End Sub
- Private Sub RichTextBox1_Change()
- End Sub