milchbubix (18.08.2012)
Thema: Programmwunsch/Suche
-
18.08.2012, 01:10 #1
Programmwunsch/Suche
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:
Code:Morgen ist [Wochentag] der [Tag] [Monat].
Code:[Wochentag] - Montag [Tag] - 3 [Monat] November
Code: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.
Egal was du hast, es ist nie das was du willst.
Denkbar finde ich auch, daß es außerirdische Lebensformen geben kann, die es darauf abgesehen haben, die Erde zu erobern, um sich hier anzusiedeln. Dabei wären die Menschen ja eher störend. Die Außerirdischen inszenieren dann solche Katastrophen wie 9/11 und legen falsche Spuren, um die Menschheit gegeneinander aufzuhetzen, damit sie sich selber ausrottet.
-
18.08.2012, 01:36 #2
- Registriert seit
- 19.11.2011
- Beiträge
- 229
Thanked 102 Times in 64 PostsAW: Programmwunsch/Suche
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
-
18.08.2012, 01:41 #3
AW: Programmwunsch/Suche
Jap! Ich habs doch relativ anschaulich dargestellt oder?
Egal was du hast, es ist nie das was du willst.
Denkbar finde ich auch, daß es außerirdische Lebensformen geben kann, die es darauf abgesehen haben, die Erde zu erobern, um sich hier anzusiedeln. Dabei wären die Menschen ja eher störend. Die Außerirdischen inszenieren dann solche Katastrophen wie 9/11 und legen falsche Spuren, um die Menschheit gegeneinander aufzuhetzen, damit sie sich selber ausrottet.
-
18.08.2012, 09:16 #4
AW: Programmwunsch/Suche
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.Geändert von Snees (18.08.2012 um 10:06 Uhr)
-
18.08.2012, 13:02 #5
AW: Programmwunsch/Suche
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?
Egal was du hast, es ist nie das was du willst.
Denkbar finde ich auch, daß es außerirdische Lebensformen geben kann, die es darauf abgesehen haben, die Erde zu erobern, um sich hier anzusiedeln. Dabei wären die Menschen ja eher störend. Die Außerirdischen inszenieren dann solche Katastrophen wie 9/11 und legen falsche Spuren, um die Menschheit gegeneinander aufzuhetzen, damit sie sich selber ausrottet.
-
18.08.2012, 14:58 #6
AW: Programmwunsch/Suche
das kannse dir selber programmieren mit replace geht das doch ruck zuck o.O
-
18.08.2012, 15:07 #7
AW: Programmwunsch/Suche
Hatte gerade Lust mal wieder was in vb zu coden
PHP-Code: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
Projektmappe angehängtGeändert von uncopyable (18.08.2012 um 15:16 Uhr) Grund: Projektmappe angehängt
-
The Following User Says Thank You to uncopyable For This Useful Post:
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.