Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Funktionen
Autor: destiny
Datum: 18.01.02 11:13
Hallo! Ich muß diesen Text bzw. Code an mehreren Stellen im Programm auf wahr bzw. falsch abrufen.Von daher hatte ich gedacht,diesen Text als eine Function mit dem Typ boolean zu schreiben.Wäre das möglich?Ich bin leider noch nicht der Profi in Funktionen.Welche Übergabewerte ich brauche und wie geschieht der Aufruf? Ich bin für jeden Tip dankbar. destiny pos_bsf1 = InStrRev(zeil(i), "frm") If pos_bsf1 > 0 Then var_bsf1 = Trim(Mid(zeil(i), pos_bsf1 + 0)) pos_bsf2 = InStr(var_bsf1, Text3.text) ' ("db If pos_bsf2 > 0 Then var_db = Trim(Mid(var_bsf1, pos_bsf2 + 2)) pos_db = InStr(var_db, Text4.text) ' ") pos_ig = InStr(var_bsf1, "=") If pos_ig > 0 Then var_bsf1_2 = Trim(Left(var_bsf1, pos_ig - 2)) If pos_db > 0 Then var_dbn = Trim(Left(var_db, pos_db - 1)) List1.AddItem "Bildschirmfeld: " & var_bsf1_2 & " = ." & var_dbn End If End If End If End If

Funktionen	63	destiny	18.01.02 11:13
Re: Funktionen	63	Braindead	18.01.02 13:53

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