Texte erstellen und verwalten

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    definiere

    KleinGeo schrieb:

    dass jedes Item zu einem Text führt
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich hoffe, ich hab Dich richtig verstanden.
    Im SelectedItemChange- oder SelectedIndexChanged-Event holst Du Dir den Text von da, wo er steht, packst ihn in eine TextBox / RichTextBox und bearbeitest ihn. Dann brauchst Du einen Button, bei dessen Klick der Text aus der TextBox / RichTextBox zurückgespeichert wird.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das musst Du mal bitte ein wenig genauer erläutern.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich würde gerne die Funktion einbauen, dass wenn man ein Item erstellt erscheint eine Form wo ich was schreiben und bearbeiten kann. Wenn ich das selbe Item noch einmal anklicke, soll der gleiche Text erscheinen und ich kann es noch einmal bearbeiten oder löschen. Wenn ich aber ein anderes Item anklicke, soll der jeweilige Text vom anderem Item erscheinen.

    Da musst Du halt genau das tun, wenn Du auf ein Icon klickst.
    Lass doch mal ein Stück Code sehen und beschreib, was passieren soll bzw. was nicht passiert.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Textname As String
    Drehbuchname = InputBox("Bitte wähle einen Namen für den neuen Text aus.", "Textname")
    ListBox1.Items.Add(Textname)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If ListBox1.SelectedItems.Count > 0 Then
    ListBox1.Items.Remove(ListBox1.SelectedItem)
    End If
    End Sub

    woher kommen die items

    - Sind das Namen von Textdateien die in einen Ordner liegen ? --Dateien aus Ordner in Listbox anzeigen und bei Selection in Textbox einlesen um dort zu bearbeiten ???!

    -Und dann nach bearbeitung wieder speichern ???!

    Befülle einen Datensatz, mach Dir dazu eine schicke Maske, wo allews eingetragen werden kann / muss und dann einen Button Save, da wird der Datensatz in eine DataTable angehängt oder überschrieben und das ganze als XML abgelegt.
    Feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Dim Pfad As String = "C:\Drehbuch_Texte\"
    7. 'Beim Start Ordner auslesen und in Listbox schreiben
    8. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. ListBox1.Items.Clear()
    10. ListBox1.Sorted = True
    11. Dim FileDirectory As New IO.DirectoryInfo(Pfad)
    12. Dim FilesFromDirectory As IO.FileInfo() = FileDirectory.GetFiles()
    13. For Each File As IO.FileInfo In FilesFromDirectory
    14. Me.ListBox1.Items.Add(File)
    15. Next
    16. End Sub
    18. Dim Drehbuchname As String
    19. 'Datei mit Namen im ordner erstellen
    20. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    21. Drehbuchname = InputBox("Bitte wähle einen Namen für den neuen Text aus.", "Textname")
    22. System.IO.Directory.CreateDirectory(Pfad)
    23. System.IO.File.CreateText(Pfad & Drehbuchname & ".txt")
    24. ListBox1.Items.Clear()
    25. ListBox1.Sorted = True
    26. Dim FileDirectory As New IO.DirectoryInfo(Pfad)
    27. Dim FilesFromDirectory As IO.FileInfo() = FileDirectory.GetFiles()
    28. For Each File As IO.FileInfo In FilesFromDirectory
    29. Me.ListBox1.Items.Add(File)
    30. Next
    31. End Sub
    33. 'Makierte Datei löscen + aus ListBox Löschen
    34. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    35. My.Computer.FileSystem.DeleteFile(Pfad & ListBox1.SelectedItem.ToString, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
    36. For i As Integer = ListBox1.Items.Count To 0 Step -1
    37. If ListBox1.SelectedIndices.Contains(i) = True Then ListBox1.Items.RemoveAt(i)
    38. Next
    39. Exit Sub
    40. End Sub
    42. ' Selectet Auswahl öffnen
    43. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    44. ' Selectet Auswahl öffnen
    45. Dim startInfo As New System.Diagnostics.ProcessStartInfo()
    46. startInfo.FileName = Pfad & ListBox1.SelectedItem.ToString
    47. Process.Start(startInfo)
    48. End Sub
    50. End Class


    Da blättere ich zich mal hin und her um zu sehn ob jemand schon was geschrieben hat -- und wenn ich poste ist auf einmal was da .......

    Na ja habs gut gemeint und übung schadet nicht :S

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „TVX“ ()

    TVX schrieb:

    VB.NET-Quellcode

    1. Try
    2. startInfo.FileName = Pfad & ListBox1.SelectedItem.ToString
    3. Catch ex As Exception
    4. End Try
    Was bewog Dich, dieses Try / Catch da einzubauen :?:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    TVX schrieb:

    VB.NET-Quellcode

    1. Try
    2. startInfo.FileName = Pfad & ListBox1.SelectedItem.ToString
    3. Catch ex As Exception
    4. End Try
    Was bewog Dich, dieses Try / Catch da einzubauen :?:


    Der blieb übrig als ich beim test eine geöffnete Datei löschen wollte ,, ist en Überbleibsel das raus kann ,,ich machs weg
    dieser Aufruf war vorher in Listbox

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()

    TVX schrieb:

    Der blieb übrig als ich beim test eine geöffnete Datei löschen wollte
    Das ist so eine Sache.
    Du machst Änderungen am Code, änderst die Änderungen und immer so weiter.
    Wenn Du jedes Mal ein paar Zeilen alten Code stehen lässt, ist Dein Code bald voller Leichen, und irgendwann fangen die ein Eigenleben an und verändern das Ablaufverhalten Deines eigentlichen Codes massiv.
    Also:
    Disziplin, Disziplin und nochmals Disziplin.
    Schmeiß solch Zeugs sofort raus, wenn Du Änderungen machst, oder dann, wenn Du es findest!
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Mein Programm ist dazu gedacht das Mehrere auf einem Dropbox-Ordner auf das Programm zugreifen und die Texte bearbeiten könne. Deshalb ist nun meine Frage, wie mache ich das der Pfad für jeden User funktioniert?

    "C:\Users\Georg\Dropbox\Gemeinsamer Ordner\ProgramData"

    Beginnen kannst Du so, den Rest hängst Du einfach dran:

    VB.NET-Quellcode

    1. Dim path = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende