Weil ich gesehen habe das noch viele PB 3.3 haben und dazu fragen stellen (welche 4.0 nutzer nicht verstehen), stelle ich dieses Thema rein, damit 3.3 nutzer HIER ihre Frage stellen können.
Ich benutze selber schon sehr lange 3.3 und kann sie vielleicht beantworten.
CODE-ARCHIV FÜR DIE VERBESSERUNG VON 3.3
Auflösung
Code: Alles auswählen
; Auflösung des Bildschirms/Screens ermitteln
Procedure DesktopWidth()
ProcedureReturn GetSystemMetrics_(0)
EndProcedure
Procedure DesktopHeight()
ProcedureReturn GetSystemMetrics_(1)
EndProcedure
Code: Alles auswählen
; Gibt die Zeit zurück. String$ kann z.B. "HH':'mm':'ss" sein
Procedure.s Time(String$)
time$=Space(1000)
GetTimeFormat_(#LOCALE_USER_DEFAULT,0,0,String$,@time$,1000)
ProcedureReturn time$
EndProcedure
; Gibt das Datum zurück. String$ kann z.B. "dd'.'MM'.'yyyy" sein
Procedure.s Date(String$)
Date$=Space(1000)
GetDateFormat_(#LOCALE_USER_DEFAULT ,0 ,0,String$,@Date$,1000)
ProcedureReturn Date$
EndProcedure
; Mist die Zeit in ms.
Global COUNTERTIME.l
Procedure StartCounter()
COUNTERTIME = GetTickCount_()
EndProcedure
Procedure.l StopCounter()
ProcedureReturn GetTickCount_()-COUNTERTIME
EndProcedure
Code: Alles auswählen
; Füllt das Ende(L) oder den Anfang(R) eines Strings mit Zeichen auf
Procedure.s RSet(String$, Laenge, Zeichen$)
RSet$ = Space(Laenge-Len(String$))
ReplaceString(RSet$, " ", Zeichen$, 2)
NewString$ = RSet$+Mid(String$,1,Laenge)
ProcedureReturn NewString$
EndProcedure
Procedure.s LSet(String$, Laenge, Zeichen$)
LSet$ = Space(Laenge-Len(String$))
ReplaceString(LSet$, " ", Zeichen$, 2)
NewString$ = Mid(String$,1,Laenge)+LSet$
ProcedureReturn NewString$
EndProcedure
; Löscht alle LoeschStrings aus einem String
Procedure.s RemoveString(String$, LoeschString$, Modus)
NewString$ = ReplaceString(String$, LoeschString$, "", Modus)
ProcedureReturn NewString$
EndProcedure
; Gibt einen Stringabschnitt (getrennt durch 'TrennString') an der stelle 'Index' zurück
Procedure.s StringField(String$, Index, TrennString$)
Stelle = 1-Len(TrennString$)
For n = 1 To Index
x = Stelle+Len(TrennString$)
Stelle = FindString(String$+TrennString$, TrennString$, x)
If Stelle = 0 : n = Index : EndIf
Next n
If Stelle
NewString$ = Mid(String$, x, Stelle-x)
EndIf
ProcedureReturn NewString$
EndProcedure
; Zählt die Anzahl der 'StringToCount' in einem String
Procedure CountString(String$, StringToCount$)
x = FindString(String$, StringToCount$, 1)
While x
n + 1
x = FindString(String$, StringToCount$, x+1)
Wend
ProcedureReturn n
EndProcedure