✔ Bestimmten Teil von String in Textbox anzeigen

[scyzo]

Ich habe folgendes problem. Ich moechte eine Textdatei auslesen und einen bestimmten Teil von dieser Texdatei in meiner Textbox anzeigen lassen. Die Textdatei wird bei mir als String geladen.

Ich moechte in meiner Textbox den Teil der Texdatei zwischen den Headings "[Total Output]" und "[Total Costs]" anzeigen lassen. Dabei soll auch nur die erste ueberschrift "[Total Output]" angezeigt werden. Aber nichts anderes!
Die Anzahl der Eintraege zwischen den Ueberschriften, vor und danach kann variieren!

Wie bekomme ich das am Besten hin?

 

[ronaldh]

Dieser Code zeigt Dir den Text zwischen den beiden Tags an:

Private Sub Command1_Click()
   Dim Tx As String
   Dim Start As Integer
   Dim Laenge As Integer
   Dim StartString As String
   Dim EndString As String
   
   StartString = "[Total Output]"
   EndString = "[Total Costs]"
   
   
   Tx = "Hallo dies und das [Total Output]Und nun der zu zeigende Text.[Total Costs] und nun noch etwas Rest"
   
   Start = InStr(Tx, StartString) + Len(StartString)
   Laenge = InStr(Tx, EndString) - Start
   If Start > 0 And Laenge > 0 Then
      Text2.Text = Mid(Tx, Start, Laenge)
   End If
   
End Sub

Falls Du [Total Output] auch mit zeigen willst, müsste Du in der Zuweisung der Variablen Start den Teil "+Len(StartString" wieder entfernen.

 

[scyzo]

Danke, das wars, was ich brauchte!!