Programmwunsch/Suche

[milchbubix]

Hallo Leute,

ich suche ein Programm mit dem man an voreingestellte Stellen in Textdokumenten bestimmte Sätze oder Wörter einfügen kann indem man dies in beschrieben Textboxen schreibt. Ich weiß das hört sich jetzt sehr unverständlich an aber ich meine das ungefähr so:

Mein vorgefertigter Text:

Morgen ist [Wochentag] der [Tag] [Monat].

Dann habe ich 3 Textboxen, 1 mit der Überschrift Wochentag, eine mit Tag und eine mit Monat in die Trage ich dann z.b. das ein:

[Wochentag] - Montag
[Tag] - 3
[Monat] November

und der Text wird dann wie folgt ausgegeben:

Morgen ist Montag der 3. November

Kennt jemand von euch so ein Programm oder kann mir ansätze liefern wie man sowas in Vb.Net coden könnte


Danke im Vorraus.

[DANP]

Du benötigst also ein Programm, bestimmte Textabschnitte/Wörter in einer Textdatei sucht und diese ersetzt?

e:// Möchte nur sicher gehen, ob ich es richtig verstanden habe

[milchbubix]

Jap! Ich habs doch relativ anschaulich dargestellt oder?

[Snees]

Kannst du mit jedem Editor machen. Strg + H dürfte das sein, versuch's mal

/e Beispiel:
Heute ist [wochentag] und es ist [uhrzeit] Uhr.

Dann Strg + H (Suchen & Ersetzen):
Ersetze [wochentag] durch Samstag,
Ersetze [uhrzeit] durch 10:06.

[milchbubix]

Danke, das bringt misch schonmal nen stück weiter, ich suche allerdings nach einer komfortableren Möglichkeit. Gibt es da kein Programm in der Art?

[ekke]

das kannse dir selber programmieren mit replace geht das doch ruck zuck o.O

[uncopyable]

Hatte gerade Lust mal wieder was in vb zu coden

Public Class Form1

    Private path = String.Empty

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
        OpenFileDialog1.FileName = String.Empty
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            path = OpenFileDialog1.FileName
            TextBox1.Text = path
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If path = String.Empty Then
            MessageBox.Show("No file selected", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        If IO.File.Exists(path) Then
            Dim data As String = IO.File.ReadAllText(path)
            Dim result As String = String.Empty
            result = data.Replace("[Wochentag]", TextBox2.Text).Replace("[Tag]", TextBox3.Text).Replace("[Monat]", TextBox4.Text)
            IO.File.WriteAllText(path, result)
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim language As New System.Globalization.CultureInfo("de-DE")
        Dim de As System.Globalization.DateTimeFormatInfo = language.DateTimeFormat

        TextBox2.Text = de.GetDayName(Date.Now.DayOfWeek)
        TextBox3.Text = Date.Now.Day
        TextBox4.Text = de.GetMonthName(Date.Now.Month)
    End Sub
End Class 

/e

Projektmappe angehängt