eigener vb net Texteditor: Funktionen erweitern

Thiemo1991 · 20. Juni 2024, 16:52

Ich habe bereits den Code, wie bisher auch, nochmal verändert. Ich habe nun ein Problem und zwar, irgendwie funktioniert das Wörterbuch (das aus einer Textdatei besteht) nicht.

Spoiler anzeigen

Quellcode

Imports System.IO
Imports System.Drawing.Text
Imports Microsoft.Win32
Imports System.Runtime.InteropServices
Imports System.Text.RegularExpressions
Imports System.Diagnostics
<DebuggerDisplay("{GetDebuggerDisplay(),nq}")>
Public Class TmEditor
Inherits Form
' Private Felder
Private fontSizes As New List(Of Integer) From {8, 10, 11, 12, 14, 16, 18, 20}
Private selectedColor As Color = Color.Black
Private autoSaveEnabled As Boolean = False
Private lastFilePath As String = ""
Private WithEvents AutoSaveTimer As New Timer()
Private WithEvents HighlightTimer As New Timer()
Private Const IconPath As String = "Resources\texteditor.ico"
Private lastTextBeforeSave As String
Private Wörterbuch As New Dictionary(Of String, String)()
' Importieren der SHChangeNotify-Funktion aus der Shell32.dll
<DllImport("Shell32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
Private Shared Function SHChangeNotify(ByVal wEventId As Integer, ByVal uFlags As Integer, ByVal dwItem1 As IntPtr, ByVal dwItem2 As IntPtr) As Boolean
End Function
Public Sub New()
InitializeComponent()
AddHandler TxtEditor.KeyDown, AddressOf TxtEditor_KeyDown
End Sub
' Methode zum Lesen der Wörter aus einer Wörterbuchdatei
Private Sub LeseWörterbuchAusDatei(wörterbuchDateiPfad As String)
If File.Exists(wörterbuchDateiPfad) Then
Dim wörter As String() = File.ReadAllLines(wörterbuchDateiPfad)
For Each wort In wörter
If Not Wörterbuch.ContainsKey(wort.ToLower()) Then
Wörterbuch.Add(wort.ToLower(), Nothing)
End If
Next
Else
MessageBox.Show("Die Wörterbuchdatei wurde nicht gefunden.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
' Methode zum Überprüfen der Rechtschreibung
Private Sub ÜberprüfeRechtschreibung()
Dim text As String = TxtEditor.Text
Dim wörter As String() = text.Split({" "c, vbLf, vbCr, vbTab, ".", ",", ";", ":", "!", "?"}, StringSplitOptions.RemoveEmptyEntries)
For Each wort In wörter
If Not Wörterbuch.ContainsKey(wort.ToLower()) Then
Dim startIndex As Integer = TxtEditor.Find(wort, RichTextBoxFinds.WholeWord)
While startIndex >= 0
TxtEditor.Select(startIndex, wort.Length)
TxtEditor.SelectionBackColor = Color.Yellow ' Markiere das Wort
startIndex = TxtEditor.Find(wort, startIndex + wort.Length, RichTextBoxFinds.WholeWord)
End While
End If
Next
TxtEditor.DeselectAll()
End Sub
' Methode zum Markieren von Hyperlinks
Private Sub MarkiereHyperlinks()
Dim regex As New Regex("\b(?:https?://|www\.)\S+\b", RegexOptions.IgnoreCase)
Dim matches As MatchCollection = regex.Matches(TxtEditor.Text)
For Each match As Match In matches
TxtEditor.Select(match.Index, match.Length)
TxtEditor.SelectionColor = Color.Blue
TxtEditor.SelectionFont = New Font(TxtEditor.SelectionFont, FontStyle.Underline)
TxtEditor.Select(TxtEditor.TextLength, 0)
Next
TxtEditor.DeselectAll()
End Sub
' Ereignishandler für Link-Klicks
Private Sub TxtEditor_LinkClicked(sender As Object, e As LinkClickedEventArgs) Handles TxtEditor.LinkClicked
Process.Start(e.LinkText)
End Sub
' Ereignishandler verknüpfen
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Schriftgrößen zur Dropdown-Liste hinzufügen
For Each fontSize As Integer In fontSizes
cmbFontSize.Items.Add(fontSize)
Next
' Installierte Schriftarten in ComboBox laden
Dim installedFonts As New InstalledFontCollection()
For Each font As FontFamily In installedFonts.Families
cmbFontFamily.Items.Add(font.Name)
Next
' Ereignishandler verknüpfen
AddHandler cmbFontSize.SelectedIndexChanged, AddressOf CmbFontSize_SelectedIndexChanged
AddHandler cmbFontFamily.SelectedIndexChanged, AddressOf CmbFontFamily_SelectedIndexChanged
AddHandler btnBlack.Click, AddressOf ColorButton_Click
AddHandler btnRed.Click, AddressOf ColorButton_Click
AddHandler btnBlue.Click, AddressOf ColorButton_Click
AddHandler btnGreen.Click, AddressOf ColorButton_Click
AddHandler btnBold.Click, AddressOf BtnBold_Click
AddHandler btnItalic.Click, AddressOf BtnItalic_Click
AddHandler btnUnderline.Click, AddressOf BtnUnderline_Click
AddHandler Me.FormClosing, AddressOf TmEditor_FormClosing
AddHandler AutoSaveTimer.Tick, AddressOf AutoSaveTimer_Tick
AddHandler HighlightTimer.Tick, AddressOf HighlightTimer_Tick
AddHandler TxtEditor.KeyDown, AddressOf TxtEditor_KeyDown ' KeyDown-Ereignishandler hinzufügen
' Ereignishandler für Textänderungen und Link-Klicks
AddHandler TxtEditor.TextChanged, AddressOf TxtEditor_TextChanged
AddHandler TxtEditor.LinkClicked, AddressOf TxtEditor_LinkClicked
' Schriftgröße und Schriftart standardmäßig auswählen
cmbFontSize.SelectedIndex = 3 ' Standardgröße: 12
cmbFontFamily.SelectedItem = "Arial" ' Standardschriftart: Arial
' Eigenschaften setzen
With TxtEditor
.Multiline = True
.AllowDrop = True
' Standard-Schriftgröße und Schriftart festlegen
.Font = New Font(cmbFontFamily.SelectedItem.ToString(), CInt(cmbFontSize.SelectedItem), FontStyle.Regular)
End With
' RichTextBox dem Formular hinzufügen
Me.Controls.Add(TxtEditor)
' Gespeicherte Einstellungen laden
LoadSettings()
' Highlight Timer konfigurieren
HighlightTimer.Interval = 5000 ' 5 Sekunden
' Prüfe, ob beim Start des Programms eine Datei als Argument übergeben wurde
If My.Application.CommandLineArgs.Count > 0 Then
' Wenn ja, rufe LoadFileToRichTextBox mit dem Pfad der übergebenen Datei auf
Dim filePath As String = My.Application.CommandLineArgs(0)
LoadFileToRichTextBox(filePath)
End If
SetProgramIcon()
' Wörterbuch aus Datei laden
Dim wörterbuchDateiPfad As String = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Resources", "de_DE.txt")
' Debug-Ausgabe des Pfads zur Laufzeit
MessageBox.Show("Verwendeter Pfad zur Wörterbuchdatei: " & wörterbuchDateiPfad, "Debug-Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
If File.Exists(wörterbuchDateiPfad) Then
LeseWörterbuchAusDatei(wörterbuchDateiPfad)
Else
MessageBox.Show("Die Wörterbuchdatei wurde nicht gefunden. Bitte überprüfen Sie den Pfad.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
' Ereignishandler für Textänderungen
Private Sub TxtEditor_TextChanged(sender As Object, e As EventArgs) Handles TxtEditor.TextChanged
MarkiereHyperlinks()
End Sub
' Methode zum Setzen des Programmicons
Private Sub SetProgramIcon()
Dim iconPath As String = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Resources\texteditor.ico")
Try
If File.Exists(iconPath) Then
Me.Icon = New Icon(iconPath)
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Laden des Programmicons: " & ex.ToString(), "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
' Dateiformat registrieren
Private Sub RegisterFileAssociation()
Dim progId As String = "tmEditor.File"
Dim appName As String = "TM Editor"
Dim fileExtension As String = ".tmEditor"
Try
' Registrieren des Dateityps
Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(fileExtension)
key.SetValue("", progId)
End Using
Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(progId)
key.SetValue("", appName)
Using iconKey As RegistryKey = key.CreateSubKey("DefaultIcon")
iconKey.SetValue("", IconPath)
End Using
Using shellKey As RegistryKey = key.CreateSubKey("shell\open\command")
shellKey.SetValue("", """" & Application.ExecutablePath & """ ""%1""")
End Using
End Using
' Aktualisieren des Windows Explorers
SHChangeNotify(&H8000000, &H0, IntPtr.Zero, IntPtr.Zero)
' Benachrichtigung anzeigen
ToolStripLabel1.Text = "Dateizuordnung aktualisiert."
Catch ex As Exception
MessageBox.Show("Fehler beim Aktualisieren der Dateizuordnung: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
ToolStripLabel1.Text = "Fehler beim Aktualisieren der Dateizuordnung."
End Try
End Sub
Private Sub TmEditor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
' Timer deaktivieren
AutoSaveTimer.Stop()
HighlightTimer.Stop()
' Speichern von Einstellungen und Daten
SaveSettings()
' Anwendung beenden
Application.Exit()
End Sub
Private Sub AutoSaveTimer_Tick(sender As Object, e As EventArgs) Handles AutoSaveTimer.Tick
If autoSaveEnabled AndAlso TxtEditor.Rtf <> lastTextBeforeSave Then
SaveTextToFile(lastFilePath)
lastTextBeforeSave = TxtEditor.Rtf
End If
End Sub
Private Sub HighlightTimer_Tick(sender As Object, e As EventArgs) Handles HighlightTimer.Tick
RemoveHighlightColor(RichTextBoxFinds.None)
End Sub
Private Sub LoadSettings()
' Zuletzt ausgewählte Schriftgröße laden
If My.Settings.FontSize >= 0 AndAlso My.Settings.FontSize < fontSizes.Count Then
cmbFontSize.SelectedIndex = My.Settings.FontSize
End If
' Zuletzt ausgewählte Schriftart laden
If cmbFontFamily.Items.Count > 0 AndAlso Not String.IsNullOrEmpty(My.Settings.SelectedFont) AndAlso cmbFontFamily.Items.Contains(My.Settings.SelectedFont) Then
cmbFontFamily.SelectedItem = My.Settings.SelectedFont
End If
' Zuletzt ausgewählte Farbe laden
selectedColor = My.Settings.SelectedColor
' Zuletzt geöffneten Pfad laden
lastFilePath = My.Settings.LastFilePath
End Sub
Private Sub SaveSettings()
' Zuletzt ausgewählte Schriftgröße speichern
My.Settings.FontSize = cmbFontSize.SelectedIndex
' Zuletzt ausgewählte Schriftart speichern, falls vorhanden
If cmbFontFamily.SelectedItem IsNot Nothing Then
My.Settings.SelectedFont = cmbFontFamily.SelectedItem.ToString()
End If
' Zuletzt ausgewählte Farbe speichern
My.Settings.SelectedColor = selectedColor
' Zuletzt geöffneten Pfad speichern
My.Settings.LastFilePath = lastFilePath
' Einstellungen speichern
My.Settings.Save()
End Sub
Private Sub CmbFontSize_SelectedIndexChanged(sender As Object, e As EventArgs)
' Schriftgröße ändern
If cmbFontSize.SelectedIndex >= 0 AndAlso cmbFontSize.SelectedIndex < fontSizes.Count Then
Dim newSize As Integer = fontSizes(cmbFontSize.SelectedIndex)
TxtEditor.SelectionFont = New Font(TxtEditor.SelectionFont.FontFamily, newSize, TxtEditor.SelectionFont.Style)
End If
End Sub
Private Sub CmbFontFamily_SelectedIndexChanged(sender As Object, e As EventArgs)
' Schriftart ändern
If cmbFontFamily.SelectedItem IsNot Nothing Then
Dim newFont As String = cmbFontFamily.SelectedItem.ToString()
TxtEditor.SelectionFont = New Font(newFont, TxtEditor.SelectionFont.Size, TxtEditor.SelectionFont.Style)
End If
End Sub
Private Sub ColorButton_Click(sender As Object, e As EventArgs)
' Schriftfarbe ändern
Dim btn As Button = DirectCast(sender, Button)
Select Case btn.Name
Case "btnBlack"
selectedColor = Color.Black
Case "btnRed"
selectedColor = Color.Red
Case "btnBlue"
selectedColor = Color.Blue
Case "btnGreen"
selectedColor = Color.Green
End Select
TxtEditor.SelectionColor = selectedColor
End Sub
Private Sub BtnBold_Click(sender As Object, e As EventArgs)
' Fettstil ändern
If TxtEditor.SelectionFont IsNot Nothing Then
Dim currentFont As Font = TxtEditor.SelectionFont
Dim newFontStyle As FontStyle = If(currentFont.Bold, currentFont.Style Xor FontStyle.Bold, currentFont.Style Or FontStyle.Bold)
TxtEditor.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
End If
End Sub
Private Sub BtnItalic_Click(sender As Object, e As EventArgs)
' Kursivstil ändern
If TxtEditor.SelectionFont IsNot Nothing Then
Dim currentFont As Font = TxtEditor.SelectionFont
Dim newFontStyle As FontStyle = If(currentFont.Italic, currentFont.Style Xor FontStyle.Italic, currentFont.Style Or FontStyle.Italic)
TxtEditor.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
End If
End Sub
Private Sub BtnUnderline_Click(sender As Object, e As EventArgs)
' Unterstrichenstil ändern
If TxtEditor.SelectionFont IsNot Nothing Then
Dim currentFont As Font = TxtEditor.SelectionFont
Dim newFontStyle As FontStyle = If(currentFont.Underline, currentFont.Style Xor FontStyle.Underline, currentFont.Style Or FontStyle.Underline)
TxtEditor.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
End If
End Sub
Private Sub RemoveHighlightColor(richTextBoxFinds As RichTextBoxFinds)
' Alle markierten Textstellen ohne Hervorhebungsfarbe zurücksetzen
Dim startPosition As Integer = 0
While True
Dim indexOfStart As Integer = TxtEditor.Find("^[A-Za-z0-9äöüÄÖÜß]+$", startPosition, richTextBoxFinds)
If indexOfStart < 0 Then Exit While
TxtEditor.SelectionStart = indexOfStart
TxtEditor.SelectionLength = 0
TxtEditor.SelectionColor = Color.Black
startPosition = indexOfStart + 1
End While
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem1.Click
Dim saveDialog As New SaveFileDialog With {
.Filter = "RTF-Dateien (*.rtf)|*.rtf|Textdateien (*.txt)|*.txt|tmEditor Dateien (*.tmEditor)|*.tmEditor"
}
If saveDialog.ShowDialog() = DialogResult.OK Then
lastFilePath = saveDialog.FileName
SaveTextToFile(lastFilePath)
Me.Text = Path.GetFileName(lastFilePath) & " - tmEditor"
ToolStripLabel1.Text = "Dokument wurde gespeichert."
Else
ToolStripLabel1.Text = "Speichern abgebrochen."
End If
End Sub
Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem1.Click
Dim openFileDialog As New OpenFileDialog With {
.Filter = "RTF-Dateien (*.rtf)|*.rtf|Textdateien (*.txt)|*.txt|tmEditor Dateien (*.tmEditor)|*.tmEditor"
}
If openFileDialog.ShowDialog() = DialogResult.OK Then
lastFilePath = openFileDialog.FileName
Try
If openFileDialog.FileName.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
TxtEditor.LoadFile(openFileDialog.FileName, RichTextBoxStreamType.PlainText)
ElseIf openFileDialog.FileName.EndsWith(".rtf", StringComparison.OrdinalIgnoreCase) Then
TxtEditor.LoadFile(openFileDialog.FileName)
ElseIf openFileDialog.FileName.EndsWith(".tmEditor", StringComparison.OrdinalIgnoreCase) Then
TxtEditor.LoadFile(openFileDialog.FileName)
Else
ToolStripLabel1.Text = "Das Dateiformat wird nicht unterstützt."
Exit Sub
End If
Me.Text = Path.GetFileName(lastFilePath) & " - tmEditor"
ToolStripLabel1.Text = "Dokument wurde geöffnet."
' Rechtschreibprüfung durchführen
ÜberprüfeRechtschreibung()
Catch ex As Exception
ToolStripLabel1.Text = "Fehler beim Öffnen der Datei: " & ex.Message
End Try
Else
ToolStripLabel1.Text = "Öffnen abgebrochen."
End If
End Sub
Private Sub BildAusDateiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BildAusDateiToolStripMenuItem.Click
Dim openFileDialog As New OpenFileDialog With {
.Filter = "Bilddateien|*.bmp;*.jpg;*.jpeg;*.gif;*.png",
.Title = "Bild auswählen"
}
If openFileDialog.ShowDialog() = DialogResult.OK Then
Dim imagePath As String = openFileDialog.FileName
InsertImage(imagePath)
' Status-Text anzeigen
ToolStripLabel1.Text = "Bild wurde eingefügt."
End If
End Sub
Private Sub InsertImage(imagePath As String)
Try
Dim originalImage As Image = Image.FromFile(imagePath)
Dim scaleFactor As Single = 0.5 ' Skalierungsfaktor (0.5 bedeutet 50% der Originalgröße)
Dim scaledWidth As Integer = CInt(originalImage.Width * scaleFactor)
Dim scaledHeight As Integer = CInt(originalImage.Height * scaleFactor)
Dim scaledImage As Image = originalImage.GetThumbnailImage(scaledWidth, scaledHeight, Nothing, IntPtr.Zero)
Clipboard.SetDataObject(scaledImage)
' Bild einfügen
TxtEditor.Paste(DataFormats.GetFormat(DataFormats.Bitmap))
' Markierten Text löschen und neuen Zeilenumbruch einfügen
TxtEditor.SelectedText = ""
TxtEditor.SelectedRtf = "{\rtf1\par}"
Catch ex As Exception
MessageBox.Show("Fehler beim Einfügen des Bildes: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub SaveTextToFile(filePath As String)
If Not String.IsNullOrEmpty(filePath) Then
Try
If filePath.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
' Speichern als TXT-Datei
TxtEditor.SaveFile(filePath, RichTextBoxStreamType.PlainText)
ElseIf filePath.EndsWith(".rtf", StringComparison.OrdinalIgnoreCase) Then
' Speichern als RTF-Datei
TxtEditor.SaveFile(filePath)
ElseIf filePath.EndsWith(".tmEditor", StringComparison.OrdinalIgnoreCase) Then
' Speichern als TM Editor-Datei
TxtEditor.SaveFile(filePath)
Else
MessageBox.Show("Das Dateiformat wird nicht unterstützt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Status-Text anzeigen
ToolStripLabel1.Text = "Speichern fehlgeschlagen: Nicht unterstütztes Dateiformat."
Exit Sub
End If
' Status-Text anzeigen
ToolStripLabel1.Text = "Dokument wurde gespeichert."
Catch ex As Exception
MessageBox.Show("Fehler beim Speichern der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Status-Text anzeigen
ToolStripLabel1.Text = "Speichern fehlgeschlagen."
End Try
Else
SpeichernToolStripMenuItem_Click(Nothing, Nothing)
End If
End Sub
Private Sub NewDocument()
TxtEditor.Clear()
End Sub
Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem1.Click
' Neues Dokument erstellen
NewDocument()
' Status-Text anzeigen
ToolStripLabel1.Text = "Neues Dokument wurde erstellt."
End Sub
Private Sub TbZoomIn_Click(sender As Object, e As EventArgs) Handles tbZoomIn.Click
If TxtEditor.ZoomFactor = 63 Then
Exit Sub
Else
TxtEditor.ZoomFactor = TxtEditor.ZoomFactor + 1
End If
End Sub
Private Sub TbZoomOut_Click(sender As Object, e As EventArgs) Handles tbZoomOut.Click
If TxtEditor.ZoomFactor = 1 Then
Exit Sub
Else
TxtEditor.ZoomFactor = TxtEditor.ZoomFactor - 1
End If
End Sub
' Ereignishandler für Tastatureingaben hinzufügen
Private Sub TxtEditor_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtEditor.KeyDown
If e.Control Then
If e.KeyCode = Keys.Oemplus Then
TbZoomIn_Click(Nothing, Nothing)
ElseIf e.KeyCode = Keys.OemMinus Then
TbZoomOut_Click(Nothing, Nothing)
End If
End If
lblCharacterCount.Text = "Zeichenanzahl: " & TxtEditor.TextLength.ToString()
If e.KeyCode = Keys.F7 Then
' F7 zum Überprüfen der Rechtschreibung
ÜberprüfeRechtschreibung()
e.SuppressKeyPress = True
End If
End Sub
Private Sub BtnJustify_Click(sender As Object, e As EventArgs) Handles btnJustify.Click
TxtEditor.SelectionAlignment = HorizontalAlignment.Left
End Sub
Private Sub BtnCenterAlign_Click(sender As Object, e As EventArgs) Handles btnCenterAlign.Click
TxtEditor.SelectionAlignment = HorizontalAlignment.Center
End Sub
Private Sub BtnRightAlign_Click(sender As Object, e As EventArgs) Handles btnRightAlign.Click
TxtEditor.SelectionAlignment = HorizontalAlignment.Right
End Sub
Private Sub Suchen_Click(sender As Object, e As EventArgs) Handles Suchen.Click
If Not String.IsNullOrEmpty(txtSearch.Text) Then
Dim searchStart As Integer = TxtEditor.SelectionStart + TxtEditor.SelectionLength
Dim index As Integer = TxtEditor.Find(txtSearch.Text, searchStart, RichTextBoxFinds.None)
If index <> -1 Then
' Text gefunden
TxtEditor.Select(index, txtSearch.Text.Length)
TxtEditor.ScrollToCaret()
TxtEditor.Focus()
txtSearch.Text = ""
Else
MessageBox.Show("Text nicht gefunden.", "Suchen", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
End Sub
Private Sub TxtSearch_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown
If e.KeyCode = Keys.Enter Then
Suchen.PerformClick()
End If
End Sub
Private Sub LoadFileToRichTextBox(filePath As String)
' Dateiinhalt in die RichTextBox laden
If File.Exists(filePath) Then
Dim fileContent As String = File.ReadAllText(filePath)
TxtEditor.Rtf = fileContent ' Annahme: Die Datei enthält RTF-formatierten Text
End If
End Sub
Private Function GetDebuggerDisplay() As String
Return ToString()
End Function
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Application.Exit()
End Sub
End Class

DTF · 20. Juni 2024, 17:07

Ich hab den Code nicht wirlich genau angeschaut. Aber eine Sache ist mir sofort aufgefallen, Wörterbuch heist auf Englisch Dictionary.

Hast du die KI gefragt wie man ein Wörterbuch in VB benutzt oder so ähnlich? Da hat die KI wohl nicht verstanden was du von ihr wolltest. KI ersetzt keine Grundlagen.

Hier:

VB.NET-Quellcode

Wörterbuch.Add(wort.ToLower(), Nothing)

addest du ein KeyValuePair mit dem Key(das Wort aus der Datei) und die dazugehörige Value nothing. Besser gesagt intern ist das ein KeyValuePair das aus den Parametern gebildet wird.

PS
@Thiemo1991 Was ist dein Ziel? Sowas wie AutoComplete? Dann fütter die KI mal mit dieser Information.

Thiemo1991 · 20. Juni 2024, 18:07

Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

Ja, ich habe die KI diesbezüglich gefragt, wie man das in meinen Code hinzufügen kann sodass es auch funktionieren kann, aber ohne Erfolg. Wenn die Überprüfung funktioniert, dann werde ich auch diese Funktion AutoComplete einfügen.

Hier habe ich nun die ganze Projektmappe hochgeladen:
uploadnow.io/f/6vDK5cd

siycah · 20. Juni 2024, 18:18

Der Fehler ist hier eindeutig, dass du versuchst, mit einer KI etwas zu erreichen, wofür eine KI niemals gedacht war.
Du musst schon selber lernen zu programmieren und nicht versuchen, dich komplett auf eine KI zu stützen.

Das ist einfach albern. Als unterstützendes Mittel - als Copilot, wie das schon richtig genannt wird - ist KI eine super Sache. Aber es kann nicht diese ganzen Sachen alleine machen.

Thiemo1991 · 20. Juni 2024, 18:23

Ich verlasse mich nicht nur auf KI, sondern überlege auch viel selber aber dennoch kann ich keinen Code wirklich alleine schreiben (eventuell abändern).

RodFromGermany · 20. Juni 2024, 18:30

Und was sollen wir dabei tun???

DTF · 20. Juni 2024, 18:35

Also um erstmal eine Auflistung der Wörter zu haben, wäre doch eine ganz normale Liste(von Zeichenkette) anstatt eines Wörterbuch ausreichend oder? Achtung, Sprachbarriere! Genau damit kam die KI nicht klar oder konnte nicht richtig schlussfolgern weil einfach nicht genug input. Dir war vermutlich nicht bewusst das Wörterbuch auf englisch Dictionary heist und die KI dachte das du das meinst. Also kann man nun schlussfolgern, ohne Fachchinesich zu können kann man auch mit einer KI nicht programmieren. Zumindest fehlende Englisch-Kenntnisse, wurde dir hier zum Verhängniss.

Also Dictionary weg und etwas anderes nehmen was du schon kennst. Hat auch eine Add-Funktion, aber braucht nur 1 Parameter. Dann hättest du schonmal eine Auflistung ohne die es ja nicht geht.

PS
@Thiemo1991 nicht das nun das menschliche Hirn(meins) schuld ist, sowas wie ein übersetzer soll das nicht zufällig werden? Weil bei Wörterbuch liegt das ja nicht so fern. Dann eher eine Datenbank, so kannste dann zumindest einen sehr einfachen übersetzer machen, der keine Grammatik kann. Zumindest Dataset und Co. weis nicht ob die Tutorials von ErfinderDesRades dir weiterhelfen würden. Ein Dictionary allein reicht dafür jedenfalls nicht, da könnte man nicht wirklich Multilingual arbeiten. Vorallem unwartbar in zig Textdateien.

New Record! 16 Edits,

Thiemo1991 · 20. Juni 2024, 21:51

Nein, das soll kein Übersetzer werden, sondern im kleinen sowie Microsoft Word bzw. OpenOffice.

Ich habe alles auf uploadnow.io/de/share die komplette Projektmappe hochgeladen.

@RodFromGermany, könnt ihr mir sagen, woran es scheitert, dass das Wörterbuch nicht funktionieren möchte?

siycah · 20. Juni 2024, 22:45

Du zeigst hier null Eigeninitiative. Ich bin schon erstaunt, dass die Kollegen hier im Forum überhaupt versucht haben, dir großartig weiterzuhelfen.

Du musst lernen. Öffne Notepad und die Datei C:\Windows\System32\drivers\etc\hosts und da trägst du ein

Quellcode

0.0.0.0 chat.openai.com
0.0.0.0 chatgpt.com

Danach schaust du dir ein paar Bücher an, die gibt's auch online, mit den Grundlagen der Programmierung.

Der Compiler hat dir schon ganz genau gesagt, was ihm fehlt und was kaputt ist. Aber du hast es dir in den Kopf gesetzt, dich komplett auf die KI zu verlassen, anstatt selber Arbeit zu investieren.

Ich sage es nochmal: keine KI ist jemals dafür gedacht gewesen, Können und Wissen zu ersetzen. Es ist lediglich ein Tool, was dich unterstützten kann, bei der Arbeit.

RodFromGermany · 21. Juni 2024, 05:17

Thiemo1991 schrieb:

dass das Wörterbuch nicht funktionieren möchte?

Wie soll es denn funktionieren?

Thiemo1991 · 21. Juni 2024, 10:28

Ich möchte einfach nur, dass die Wörter abgeglichen mit der Datei werden, wenn das Wort falsch geschrieben wird.

RodFromGermany · 21. Juni 2024, 10:36

@Thiemo1991 Habe ich das richtig verstanden?
Du möchtest eine Rechtschreib-Kontrolle?
Dann brauchst Du kein Dictionary, sondern eine List(Of String), das mit den richtig geschriebenen Wörtern befüllt ist.
Für jedes geschriebene Wort, das nicht in der Liste enthalten ist, gibt es zwei Möglichkeiten:
- es ist falsch geschrieben
oder
- es fehlt in der Liste.

siycah · 21. Juni 2024, 10:39

Also möchtest du das hier: learn.microsoft.com/de-de/dotn…k?view=windowsdesktop-8.0

Microsoft bietet ein Spellcheck an. Erfinde das Rad nicht neu.

Thiemo1991 · 21. Juni 2024, 11:12

Ok! Ich muss doch, soviel wie ich sehe, dennoch die Datei auch angeben. Oder?

siycah · 21. Juni 2024, 11:32

Siehe hier: learn.microsoft.com/de-de/dotn…s?view=windowsdesktop-8.0

-Franky- · 21. Juni 2024, 14:27

@siycah Ist Dein Link nicht eher was für WPF? Klar kann man auch die Controls aus WPF, WinRT bzw UWP in einem WinForms Projekt hosten und die entsprechende SpellChecker Funktionalität nutzen. Es geht auch direkt in WinForms, wenn man direkt die SpellChecker Interfaces verwendet bzw der WinForms-RTB zusätzlich ein paar Eigenschaften verpasst. Siehe auch: SpellCheck in einer RTB (WinForms) und eine SpellChecker-Klasse per Interface ISpellChecker

Thiemo1991 · 30. Juni 2024, 19:49

Irgendwie gibt es Fehler bei der Darstellungen von Wörter. Das ganze Projekt habe ich als Anhang mit angehängt.

eigener vb net Texteditor: Funktionen erweitern

Quellcode

VB.NET-Quellcode

Quellcode

Thiemo1991 schrieb:

Benutzer online 2

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben