---

Einen wunderschönen und umwerfenden guten Morgen an Alle : )

mit diesem Code kann ich eine .txt Datei in eine Listbox laden:

        Dim Data As String
        Data = "N:\1_autocad_admin\Programme\vb_net\CAD_Archiv_vs2003\CAD_Archiv\data\user_pfade.txt"

        Try
            Dim FiStr As FileStream = New FileStream(Data, FileMode.Open)  'lesen
            Dim StrRe As StreamReader = New StreamReader(FiStr)
            Dim i As Integer
            ListBox1.Items.Clear()
            Do Until StrRe.Peek() = -1
                ListBox1.Items.Add(StrRe.ReadLine)
                i += 1
            Loop
            StrRe.Close()
        Catch except As Exception
            MessageBox.Show("Hallo", "Titel", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            MsgBox(except.Message & vbNewLine & _
                    "Erstellen Sie zunächst mit <Anfügen> oder <Überschreiben> die Datei", MsgBoxStyle.Exclamation)
        End Try

In dieser .txt Datei steht der Username, Arbeitsbereich drinnen:

user1,G:\AutoCAD_Allgemein\Eigene_Daten\Urun
user2,G:\Vorrichtungskonstruktion\Eigene_Ordner\Distler

Ich möchte gerne in ein anderes Textbox folgendes drinnen stehen haben:
wenn der "user2" ist, dann soll er mir in das Textbox "G:\Vorrichtungskonstruktion\Eigene_Ordner\Distler" reinschreiben.

Wie kann man dies in Visual Studio:VB.NET2003 umsetzten?

Danke für jede Unterstützung.

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 15. Mai. 2007 editiert.]

[Diese Nachricht wurde von Feyza am 15. Mai. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Feyza,

zum Beispiel so:

Code:

---

Dim sZeile As String
Dim sZeilenArray() As String
Do Until StrRe.Peek() = -1
  'Zeile in eine Strinvariable
  sZeile = StrRe.ReadLine
  'Beginnt die Zeile mit User2?
  If sZeile.StartsWith("User2") Then
      'Zeile aufteilen
      sZeilenArray = sZeile.Split(CChar(","))
      'Pfadteil in die Textbox schreiben
      Textbox1.text = sZeilenArray(1)
  End If
  'Zeile in die Listbox
  ListBox1.Items.Add(sZeile )
Loop

---

Bei dieser Methode fehlen jedoch alle Prüfungen.
Ist der User und der Pfad in einer Zeile nicht durch ein "," getrennt geht es in die Hose.

Du kannst nach den Suchstring auch mit

Code:

---

sZeile.IndexOf("User2") <> -1
'oder
sZeile.Contains("User2")

---

in deinem String suchen. Da gibt es mehrere Möglichkeiten.

------------------
Mfg Daniel

Lesen ist super. Nur die Buchstaben machen einen verrückt!
------------------

SolidWorks Programmierung | Tools | Makros | Software; Schuler Design Automation GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

danke Dir.

Leider funktioniert der Code noch nicht:

      lblUser.Text = Environ$("USERNAME")
        lblUser.Text = UCase(lblUser.Text)

        Dim Data As String
        Data = "N:\1_autocad_admin\Programme\vb_net\CAD_Archiv_vs2003\CAD_Archiv\data\user_pfade.txt"

        Try
            Dim FiStr As FileStream = New FileStream(Data, FileMode.Open)  'lesen
            Dim StrRe As StreamReader = New StreamReader(FiStr)
            Dim i As Integer
            ListBox1.Items.Clear()
            Do Until StrRe.Peek() = -1
                ListBox1.Items.Add(StrRe.ReadLine)
                i += 1
            Loop
            StrRe.Close()
        Catch except As Exception
            MessageBox.Show("Hallo", "Titel", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            MsgBox(except.Message & vbNewLine & _
                    "Erstellen Sie zunächst mit <Anfügen> oder <Überschreiben> die Datei", MsgBoxStyle.Exclamation)
        End Try

        Dim sZeile As String
        Dim sZeilenArray() As String

        Do Until StrRe.Peek() = -1
            'Zeile in eine Strinvariable
            sZeile = StrRe.ReadLine
            'Beginnt die Zeile mit User2?
            If sZeile.StartsWith("UNAFU") Then
                'Zeile aufteilen
                sZeilenArray = sZeile.Split(CChar(","))
                'Pfadteil in die Textbox schreiben
                lblUserPfad.Text = sZeilenArray(1)
            End If
            'Zeile in die Listbox
            ListBox1.Items.Add(sZeile)
        Loop

Hier sagt er noch: "Der Name StrRe ist nicht definiert" bei den fett geschrieben StrRe)

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza,

das war auch nur ein Codeschnipsel!
Diesen musst du für deine Do-Loop Schleife einsetzen:

Code:

---

Dim Data As String
Data = N:\1_autocad_admin\Programme\vb_net\CAD_Archiv_vs2003\CAD_Archiv\data\user_pfade.txt"

Try
  Dim FiStr As FileStream = New FileStream(Data, FileMode.Open)  'lesen
  Dim StrRe As StreamReader = New StreamReader(FiStr)
  Dim sZeile As String
  Dim sZeilenArray() As String
           
  ListBox1.Items.Clear()
       
  Do Until StrRe.Peek() = -1
      'Zeile in eine Strinvariable
      sZeile = StrRe.ReadLine
      'Beginnt die Zeile mit User2?
      If sZeile.StartsWith("UNAFU") Then
          'Zeile aufteilen
          sZeilenArray = sZeile.Split(CChar(","))
          'Pfadteil in die Textbox schreiben
          lblUserPfad.Text = sZeilenArray(1)
      End If
      'Zeile in die Listbox
      ListBox1.Items.Add(sZeile)
  Loop

  StrRe.Close()
Catch except As Exception
  MsgBox(except.Message & vbNewLine & _
  "Erstellen Sie zunächst mit <Anfügen> oder <Überschreiben> die Datei", MsgBoxStyle.Exclamation)
End Try

---

------------------
Mfg Daniel

Lesen ist super. Nur die Buchstaben machen einen verrückt!
------------------

SolidWorks Programmierung | Tools | Makros | Software; Schuler Design Automation GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

danke schön 

Jetzt funktionierts.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP