Hallo,
ich hab ein kleines Problem. Bzw. 2 aber erstmal zu dem einem.
Ich habe einen Code mit hilfe des Forums entwicklet der mir eine Datei in eine Listbox liest und mir dann die Richtige position in der Datei reinschriebt was ich möchte. Funktioniert sau gut.
Ist es möglich hier auch Alle zahlenwerte, an der Richtigen Position natürlich, einzutragen die ich in 2 Textboxen eingebe.
in einer textbox steht dann "60" und ein einer anderen "70"
hier mal der Code für eine Zeile durhcsuchen und reinschreiben.
geht das?
wenn ja wie stelle ich das an?
Hab schon zig sachen verscuht, klappt aber nicht wie ich das will.
ich hab ein kleines Problem. Bzw. 2 aber erstmal zu dem einem.
Ich habe einen Code mit hilfe des Forums entwicklet der mir eine Datei in eine Listbox liest und mir dann die Richtige position in der Datei reinschriebt was ich möchte. Funktioniert sau gut.
Ist es möglich hier auch Alle zahlenwerte, an der Richtigen Position natürlich, einzutragen die ich in 2 Textboxen eingebe.
in einer textbox steht dann "60" und ein einer anderen "70"
hier mal der Code für eine Zeile durhcsuchen und reinschreiben.
geht das?
wenn ja wie stelle ich das an?
Hab schon zig sachen verscuht, klappt aber nicht wie ich das will.
VB.NET-Quellcode
- If ComboBox1.SelectedItem.ToString() = "Roboter 2.1" Then
- Dim lstDateiInhalt_dbk As New List(Of String)
- lstDateiInhalt_dbk.AddRange(IO.File.ReadAllLines(Pfadprg21dbk + "dbk__dir.dat"))
- Dim num_dbk = Integer.Parse(txtDbkNr.Text.Trim)
- Dim insertposition_dbk = lstDateiInhalt_dbk.FindIndex(Function(line) Integer.Parse(line.Split()(1)) >= num_dbk)
- Dim lineAtInsertPosition_dbk = lstDateiInhalt_dbk(insertposition_dbk)
- If Integer.Parse(lineAtInsertPosition_dbk.Split()(1)) = num_dbk Then
- MsgBox("Datenbanknummer ist schon vergeben an Roboter 2.1!", MsgBoxStyle.Information, "Info")
- Return
- Else
- Dim lstDateiInhalt_prg As New List(Of String)
- lstDateiInhalt_prg.AddRange(IO.File.ReadAllLines(Pfadprg21prg + "prg__dir.dat"))
- Dim num_prg = Integer.Parse(txtPrgNr.Text.Trim)
- Dim insertposition_prg = lstDateiInhalt_prg.FindIndex(Function(line) Integer.Parse(line.Split()(1)) >= num_prg)
- Dim lineAtInsertPosition_prg = lstDateiInhalt_prg(insertposition_prg)
- If Integer.Parse(lineAtInsertPosition_prg.Split()(1)) = num_prg Then
- MsgBox("Programmnummer ist schon vergeben an Roboter 2.1!", MsgBoxStyle.Information, "Info")
- Return
- Else
- Select Case MessageBox.Show("Programmnummer: " + txtPrgNr.Text + " und Datenbanknummer: " + txtDbkNr.Text + " verfügbar an Roboter 2.1!" & vbCrLf & vbCrLf & "Programm und Datenbank erstellen?", "Abfrage", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
- Case Windows.Forms.DialogResult.Yes
- lineAtInsertPosition_dbk = String.Format(" {0} {1}", num_dbk, txtDir.Text)
- lstDateiInhalt_dbk.Insert(insertposition_dbk, lineAtInsertPosition_dbk)
- IO.File.WriteAllLines(Pfadprg21dbk + "dbk__dir.dat", lstDateiInhalt_dbk.ToArray())
- IO.File.WriteAllLines(Pfadprg21dbk + "dbk_" + addunterstrich(txtDbkNr.Text) + ".dat", txtDbkinhalt.Lines)
- lineAtInsertPosition_prg = String.Format(" {0} {1}", num_prg, txtDir.Text)
- lstDateiInhalt_prg.Insert(insertposition_prg, lineAtInsertPosition_prg)
- IO.File.WriteAllLines(Pfadprg21prg + "prg__dir.dat", lstDateiInhalt_prg.ToArray())
- IO.File.WriteAllLines(Pfadprg21prg + "prg_" + addunterstrich(txtPrgNr.Text) + ".dat", txtPrginhalt.Lines)
- System.Threading.Thread.Sleep(200)
- MsgBox("Programm " + (txtPrgNr.Text) + " mit dazugehöriger Datenbank " + (txtDbkNr.Text) + " an Roboter 2.1 erstellt!", MsgBoxStyle.Information, "Info")
- Return
- Case Windows.Forms.DialogResult.No
- End Select
- End If
- End If
- End If