#include "ARMCFunctions.h"
#define NULL (void *) 0

void trim(char* string, char* b_char) {
// combines rTrim and lTrim
// Note: doesn't work for string literals
// eg trim("   test"," ")
unsigned char len = (unsigned char)*string;
unsigned char i;
unsigned char spaces = 0;
char* stemp = string;// Save string pointer
char bc = ' ';       // blank char = ' '

if (string == NULL)  // no args = nothing to do
return;

if (b_char != NULL ) // no blank char arg? Then use default
 bc = b_char[1];

//-------------------------rtrim
stemp = stemp+len; // point to the end of the string
// Find the first non-space at the end of the string
while (spaces <= len && *stemp-- == bc) {
   ++spaces;
}
len -= spaces; // Remaining string length = len - spaces
//------------------------ltrim
spaces = 0;
stemp = string;
// Search first non-space character
while (spaces < len && *++stemp == bc) {
++spaces;
}
len    -= spaces;    // Remaining string length = len - spaces
*string = (char)len; // Store BASIC (trimmed) string length
for (i=0;i++ <len;) {// Copy the rest of the string
string[i] = string[i+spaces];
}
return;
}

t$ = "12345  6"
PRINT t$
PRINT trim$(t$)

FUNCTION TRIM$(a$)
TRIM$ = LEFT$(a$,INSTR(a$," ")-1)
END FUNCTION

a$="   12345    "
Print a$, Len(a$)
ctrim a$, " "
Print a$, Len(a$)

'File ctrim.bas written 24-09-2024 12:51:00 v1.44
CSub ctrim string string
 00000000
 46C6B5F0 7804B500 D0632900 23007849 78151902 428D3A01 3301D103 429CB2DB
 1AE4D2F7 0002B2E4 2C002300 E05CD104 B2DB3301 D04A429C 32017855 D0F7428D
 B2E21AE4 70024690 D03D2A00 00142200 18411D59 428D1C45 1C5F4154 19C60021
 42A61D44 430A4152 39014641 468CB2C9 45612108 42494189 D02D4211 4332002A
 D1290792 21004642 22000897 32015874 506CB2D2 42973104 2203D1F8 43944644
 00221C61 45A0B2C9 18C3D00E 54455C5D B2ED1CA5 D9074588 32035D59 B2D25541
 D90145A8 54835C9B 46B8BC80 2300BDF0 E7F97003 E79A2120 19C02300 54EA5CC2
 B2DA3301 D8F94590 7004E7EE 46C0E7EC
End CSub