roboterprogramm auslesen und anzeigen der Datenbanken.

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Gottric.

    roboterprogramm auslesen und anzeigen der Datenbanken.

    hallo zusammen,
    es geht darum roboterproramme mit den dazugehörigen Datenbanken der Parametern auszulesen und in Labels oder textboxen auf einer Form anzuzeigen.

    Struktur: Aufruf-Programm-Datenbank

    es soll folgendermaßen ablaufen. Ich gebe in ein Textfeld die Nummer des Aufrufs ein, dann soll ein Ordner vom netzwerk nach dieser Nummer durchsucht werden. Hat er diese gefunden ist dort in der .dat Datei eine Zahl x hinterlegt. Nach dieser Zahl x steht die nummer des eigentlichen roboterprogramm. Dies ist im glichen Ordner hinterlegt,auch in einer .dat Datei. Dann soll er dieses auslesen und auf einer Textbox oder Label anzeigen. Dann nach 2 Zahlen x und y, das roboterprogramm durchsuchen. Nach Zahl x soll die dahinterstehende Zahl in einem anderen Ordner geöffnet und in einem Label oder Textbild angezeigt werden. Nach Zahl y soll die Nummer des Aufrufes aufgerufen und angezeigt werden Es ist entweder x oder y im programm, nie beide! Externe/interne Datenbank.

    Gibt es vielleicht schon vorgefertigte Lösungen für dieses Projekt?
    wenn nicht, wie gehe ich am besten vor?


    im Voraus danke.
    Ps. Ich bin völliger Neuling aufbliesen Gebiet, habe zwar schon paar Sachen rausbekommen wie zum Beispiel dat Dateien Anzeigen lassen in ein Textbox aber das durchsuchen der Zeilen und dann öffnen nach bestimmten Zahlen in anderen Ordnern gestaltet sich für mich schwierig als Anfänger.

    Verschoben. ~Thunderbolt

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

    eine Dat-Datei kann alles mögliche beinhalten. Hat also keine feste Datei Struktur wie zB ein .jpg etc.
    wenn bei dir einfach nur Zeilen mit text enthlten sind kannsu ja mit ​For each line As String In und Split(Enviorment.Newline, datInhalt) die Zeile raussuchen die du brauchst.
    oder wenn feste Zeile mit Split(..)(ZeilenNummer) draufzugreifen.

    Allgemein währe es für uns besser wenn du die Dat datei anhängen könntest und der Code den du bisher hast postet.
    Ich musste dein Text mehrmals lesen um überhaupt zu verstehen was du eventuell meinst XD

    Gruß

    Hallo,
    danke für deine schneller Anwort. Ich hatte bis jetzt leider keine Zeit. Hier mein Code den ich mir zusammengesucht habe aus verschiedenen Foren und die Form wie das ganze aussehen soll. (natürlich nicht optisch ausgereift) :)
    Das aufrufen, einlesen und speichern funktioniert zwar, ist aber Umständlich wie ich finde. Ich hätte es erstens lieber das alles im Hintergrund abläuft, also dass sofort der Text ausgelesen und augezeigt wird, ohne dass ich vorher über die Openfiledialogmaske das ganze anwählen muss. Die Ordner wo er lesen soll kann ich angeben.

    Es soll so funktionieren: Ich gebe eine Zahl in die Textbox Aufruf ein und drücke auf Aufruf öffnen. Dann soll der Inhalt in der Richtextbox darunter angezeigt werden. Dort soll dann automatisch überprüft werden welche Zahl hinter der 75 steht. Hier im Beispiel die 2000. Dann soll automatisch aus dem gleichen Ordner das Prg geladen werden, welches die 2000 hat und in der Richtextbox Inhalt des Prg. angezeigt werden. Dieses Prg. soll dann automatisch durchsucht werden ob eine 70 oder eine 74 drin steht. (Es ist immer nur eine der beiden Zahlen im Prg. vorhanden.) bei der 70 soll die Zahl dahinter aus einem anderen Ordner die Richtextbox Inhalt der DBK geladen werden.steht dort eine 74 soll die Zahl aus dem Aufruf als DBK geladen werden.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    6. Me.Close()
    7. End Sub
    9. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    10. Try
    11. RichTextBox1.Clear()
    13. With OpenFileDialog1
    14. .InitialDirectory = "" 'Standard-Pfad
    15. .Filter = "TextDatei|*.dat" 'Datei-Endungen
    16. .Title = "TextDatei öffnen" 'Dialog-Titel
    17. .FileName = "" 'Dateiname
    19. Dim result As DialogResult = OpenFileDialog1.ShowDialog()
    20. If result = Windows.Forms.DialogResult.Cancel Then
    21. Exit Sub
    22. Else
    23. Dim Pfad As String = OpenFileDialog1.FileName
    24. RichTextBox1.Text = File.ReadAllText(Pfad, System.Text.Encoding.GetEncoding(1252))
    25. End If
    27. End With
    28. Catch ex As Exception
    29. MsgBox(ex.Message, MsgBoxStyle.Critical, "Öffnet eine Text-Datei")
    30. End Try
    32. End Sub
    34. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    35. Try
    36. RichTextBox2.Clear()
    38. With OpenFileDialog2
    39. .InitialDirectory = "" 'Standard-Pfad
    40. .Filter = "TextDatei|*.dat" 'Datei-Endungen
    41. .Title = "TextDatei öffnen" 'Dialog-Titel
    42. .FileName = "" 'Dateiname
    44. Dim result As DialogResult = OpenFileDialog2.ShowDialog()
    45. If result = Windows.Forms.DialogResult.Cancel Then
    46. Exit Sub
    47. Else
    48. Dim Pfad As String = OpenFileDialog2.FileName
    49. RichTextBox2.Text = File.ReadAllText(Pfad, System.Text.Encoding.GetEncoding(1252))
    50. End If
    52. End With
    53. Catch ex As Exception
    54. MsgBox(ex.Message, MsgBoxStyle.Critical, "Öffnet eine Text-Datei")
    55. End Try
    56. End Sub
    58. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    60. Try
    61. Select Case True
    62. Case RichTextBox1.TextLength = 0 'Prüfung ob Konfig geladen
    63. MsgBox("Bitte zunächst Text eingeben.", MsgBoxStyle.Critical, "$safeprojectname$")
    64. Case RichTextBox1.TextLength > 0
    65. SaveFileDialog1.InitialDirectory = "" 'Standard-Pfad
    66. 'SaveFileDialog1.RestoreDirectory = True 'Muss stehen, sonst wird das WorkingDirectory zurückgesetzt (WindowsXP)
    67. SaveFileDialog1.Filter = "TextDatei (*.dat)|*.dat" 'Datei-Endungen
    68. SaveFileDialog1.Title = "$safeprojectname$" 'Dialog-Titel
    70. Dim result As DialogResult = SaveFileDialog1.ShowDialog() 'Startet Dialog + Abfrage der UserAktion
    71. If result = Windows.Forms.DialogResult.Cancel Then 'Ergebis Abbrechen
    72. Exit Sub
    73. Else 'Anderes Ergebnis
    74. Dim Datei As String = SaveFileDialog1.FileName
    75. Dim Text As String = RichTextBox1.Text
    76. My.Computer.FileSystem.WriteAllText(Datei, Text, False, System.Text.Encoding.GetEncoding(1252)) 'StreamWriter geht nicht --> Umlaute
    77. End If
    78. End Select
    79. Catch ex As Exception
    80. MsgBox(ex.Message, MsgBoxStyle.Critical, "$safeprojectname$")
    81. End Try
    82. End Sub
    84. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    86. Try
    87. Select Case True
    88. Case RichTextBox2.TextLength = 0 'Prüfung ob Konfig geladen
    89. MsgBox("Bitte zunächst Text eingeben.", MsgBoxStyle.Critical, "$safeprojectname$")
    90. Case RichTextBox2.TextLength > 0
    91. SaveFileDialog2.InitialDirectory = "" 'Standard-Pfad
    92. 'SaveFileDialog2.RestoreDirectory = True 'Muss stehen, sonst wird das WorkingDirectory zurückgesetzt (WindowsXP)
    93. SaveFileDialog2.Filter = "TextDatei(*.dat)|*.dat" 'Datei-Endungen
    94. SaveFileDialog2.Title = "$safeprojectname$" 'Dialog-Titel
    96. Dim result As DialogResult = SaveFileDialog2.ShowDialog() 'Startet Dialog + Abfrage der UserAktion
    97. If result = Windows.Forms.DialogResult.Cancel Then 'Ergebis Abbrechen
    98. Exit Sub
    99. Else 'Anderes Ergebnis
    100. Dim Datei As String = SaveFileDialog2.FileName
    101. Dim Text As String = RichTextBox2.Text
    102. My.Computer.FileSystem.WriteAllText(Datei, Text, False, System.Text.Encoding.GetEncoding(1252)) 'StreamWriter geht nicht --> Umlaute
    103. End If
    104. End Select
    105. Catch ex As Exception
    106. MsgBox(ex.Message, MsgBoxStyle.Critical, "$safeprojectname$")
    107. End Try
    108. End Sub
    110. End Class


Facebook
Telefonspende