Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datenfelder
Autor: destiny
Datum: 16.01.02 13:26
Hallo! Ich habe versucht den unten angzeigten Text in Datenfelder zu fassen, um diese dann in einer Schleiße durchlaufen zu lassen. Leider ergab das nicht die Ergebnis,was ich erhalten sollte. Könnte mir da evt. jemand einen Tip geben.Ich hoffe ihr seht durch. Danke destiny pos_callfu1 = InStrRev(zeil(i), "{call") pos_callfu2 = InStrRev(zeil(i), "{ call") . . . pos_callfu9 = InStrRev(zeil(i), "{? =call") If pos_callfu1 > 0 Then var_cf1 = Trim(Mid(zeil(i), pos_callfu1 + 5)) pos_callfukl1 = InStr(var_cf1, "(") pos_callfuekl1 = InStr(var_cf1, "}") With List1 If pos_callfukl1 > 0 Then .AddItem " - Stored Procedure: " & Trim(Left(var_cf1, pos_callfukl1 - 1)) Else If pos_callfuekl1 > 0 The .AddItem " - Stored Procedure: " & Trim(Left(var_cf1, pos_callfuekl1 - 1)) End If End If End With End If If pos_callfu2 > 0 Then var_cf2 = Trim(Mid(zeil(i), pos_callfu2 + 6)) pos_callfukl2 = InStr(var_cf2, "(") pos_callfuekl2 = InStr(var_cf2, "}") With List1 If pos_callfukl2 > 0 Then .AddItem " - Stored Procedure: " & Trim(Left(var_cf2, pos_callfukl2 - 1)) Else If pos_callfuekl2 > 0 Then .AddItem " - Stored Procedure: " & Trim(Left(var_cf2, pos_callfuekl2 - 1)) End If End If End With End If . . . If pos_callfu9 > 0 Then var_cf9 = Trim(Mid(zeil(i), pos_callfu9 + 8)) pos_callfukl9 = InStr(var_cf9, "(") pos_callfuekl9 = InStr(var_cf9, "}") With List1 If pos_callfukl9 > 0 Then .AddItem " - Stored Procedure: " & Trim(Left(var_cf9, pos_callfukl9 - 1)) Else If pos_callfuekl9 > 0 Then .AddItem " - Stored Procedure: " & Trim(Left(var_cf9, pos_callfuekl9 - 1)) End If End If End With End If

Datenfelder

49

destiny

16.01.02 13:26

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen