1 // ----------------------------------------------------------------------------
3 // ----------------------------------------------------------------------------
5 #include "GeneralTricks.h"
7 static char *VB_Name = "GeneralTricks_Module";
9 // --- Option Compare Text
11 double ValEx(char *TS)
15 // Extends the Val() function for
16 // german-style number-representing strings
20 i = InStr(1, TS, ",");
24 RS = Right(TS, Len(TS) - i);
25 ValEx = Val(CAT(LS, ".", RS));
35 void INC(int *VAR, int Delta)
40 void DEC(int *VAR, int Delta)
45 char *MySplit(char *TS, char *Sep, long SCount)
50 long i, J, k, q, L, SL;
78 RA = REDIM_1D(sizeof(char), 0, J + 1 - 1);
96 RA[q] = Mid(T, i, k - i);
105 T = Right(T, L - i + 1);
111 if (Right(T, SL) == Sep)
113 T = Left(T, Len(T) - SL);
122 strcpy(&RA[q], T); // RA(q) = T
130 void MyReplace(char *TS, char *Pat1, char *Pat2)
132 long k, SL1, SL2, TL;
137 k = InStr(1, TS, Pat1);
143 TS = CAT(Left(TS, k - 1), Pat2, Right(TS, TL - k - SL1 + 1));
145 k = InStr(k + SL2, TS, Pat1);