[VB] Bestimmten Block aus Textbox auslesen

[AddicTed]

Na Hallo zusammen,

Ich habe eine Frage zu Visual Basic und einer Textbox.

Ich habe eine Textbox mit folgendem Inhalt (nur als Beispiel gemeint)

?Brief1
TextTextText
TextTextText
TextTextText
?Brief2
TextTextText
TextTextText
TextTextText
?Brief3
TextTextText
TextTextText
TextTextText
TextTextText

Jetzt würde ich gerne Brief1, Brief2 und Brief3 in eine Listbox untereinander eintragen. Dabei soll der Rest wie das ? und der Text weggelassen werden. Also nur das was unmittelbar nach dem ? auf der selben Zeile steht.

Brief1
Brief2
Brief3

Das ganze hat den Sinn, dass ich sehe welche Einträge (sind durch ? getrennt) sich in der Textbox befinden. Hat jemand von euch eine Lösungs-Idee?

Und falls ich es zu unverständlich erklärt habe, fragt mich bitte was ihr nicht verstanden habt. Habe es versucht so genau wie möglich zu erklären (und Hochdeutsch ist leider nicht gerade meine stärke ).

Gruss, AddicTed

 

[2Bios]

Ich hab auch mal mit VB angefangen und kann aus Erfahrung behaupten, dass solche Stringgeschichten mit VB höchst unpraktisch zu machen sind... Ich würde dich ja zu Perl raten, aber les dir mal dies durch.

 

[AddicTed]

Danke für deine Hilfe, ich werde es mir durchlesen. Hast du gerade noch ne Idee welches Tag ich in einer FileListBox verwenden kann um eines auszuwählen und zu öffnen? Ich habe es mit .Selected versucht, jedoch funktioniert es nicht so ganz. Mit List(i) würde es funktionieren, jedoch öffnet es mir immer das oberste..

Hier ist mein Code:

Private Sub cmd1_Click()
On Error Resume Next
      Dim FileLength
      ''f = drvList.Path & "\" & drvList.List(i)
      f = drvList.Path & "\" & drvList.Selected(i)
      Open f For Input As #1
         FileLength = LOF(1)
         t = Input(FileLength, #1)
      Close #1
      frmBearbeiten.txtInhalt.Text = t
      If t <> "" Then
      Me.Hide
      frmBearbeiten.Show
      End If
End Sub

 

[2Bios]

Umm... a kann ich dir leider nicht mehr weiterhelfen,da ich meine .NET-CDs verlegt habe. Tut mir leid

P.S.: Tag? Du meinst Methode oder Funktion

 

[lookshe]

mit listbox.index(listbox.selected) kommst du an den inhalt des selektierten elements soweit ich es recht in erinnerung habe.

 

[AddicTed]

Danke für die Hilfe

Listbox.List(Listbox.ListIndex) funktioniert

Hätte es sonst so gelöst:

x = drvList.ListIndex
txtDatei.Text = drvList.List(x)

Deine Methode ist jedoch eleganter =)

Hatte noch ne Idee wie ich das ganze Lösen kann.

Kann mir jemand Sagen, wie ich z.b. den Text der 10. Zeile aus einer Textbox als z.b. MsgBox anzeigen kann?

 

[Gabriel3]

guten abend.
Das mit der 10.Zeile:

dim counter as integer
dim ln as string
open file for input as #1
do until eof(1)
counter=counter+1
line input #1,ln
if counter=10 then
exit do
end if
loop
msgbox ln
close #1

File ist der Dateiname.

Übrigens gibt generell die List-Eigenschaft den Inhalt eines Feldes aus, doch dieses muss per Index bezeichnet werden, daher .List(...). Gibt man nichts an, hat man sozusagen 0 angegeben=>oberstes Feld. ListIndex gibt das ausgewählte Feld an.

Und was dein Hauptproblem(siehe 1.Beitrag) betrifft:

din ln as string
open file for input as #1
do until eof(1)
line input #1, ln
if left(ln,1)=Zeichen then
list1.additem mid(ln,2)
end if
loop
close #1

Hoffe, es hilft.
Gabriel

 

[AddicTed]

Hey Danke für deine Antwort.

Mittlerweile habe ich das Problem jedoch auf eine andere Art und Weise gelöst

Aber trotzdem vielen dank für deinen Einsatz.

Gruss,

 

[2Bios]

dürfte ich fragen, wie?