#include "GeneralTricks.h"
-static char *VB_Name = "GeneralTricks_Module";
+// static char *VB_Name = "GeneralTricks_Module";
+
// --- Option Explicit
// --- Option Compare Text
if (i != 0)
{
LS = Left(TS, i - 1);
- RS = Right(TS, Len(TS) - i);
+ RS = Right(TS, strlen(TS) - i);
ValEx = Val(CAT(LS, ".", RS));
}
else
*VAR = *VAR - Delta;
}
+#if 0
+
char *MySplit(char *TS, char *Sep, long SCount)
{
char *MySplit;
char *RA;
T = TS;
- L = Len(TS);
- SL = Len(Sep);
+ L = strlen(TS);
+ SL = strlen(Sep);
J = SCount;
if (J < 1)
{
break;
q = q + 1;
+#if 0
+ /* !!! CHECK IF THIS IS REALLY NEEDED !!! */
RA[q] = Mid(T, i, k - i);
+#endif
}
i = k + SL;
return MySplit;
}
+#endif
+
void MyReplace(char *TS, char *Pat1, char *Pat2)
{
long k, SL1, SL2, TL;
- TL = Len(TS);
- SL1 = Len(Pat1);
- SL2 = Len(Pat2);
+ TL = strlen(TS);
+ SL1 = strlen(Pat1);
+ SL2 = strlen(Pat2);
k = InStr(1, TS, Pat1);
if (k == 0)
return;