Using TRIM$ on Typed Arrays

[Henning Wallgren]

Hi

Does anyone know how to make a typed array variable LEN = 0 if it's
empty? The problem I'm having is that if the array is atually empty
the length of the string is 40 so the test below doesn't work. Testing
on LEN = 40 is not safe either if the variable actually happens to
hold 40 valid characters. Tested on SPACE$(40) didn't work either.

TYPE Business_Table
Company AS STRING * 40
First AS STRING * 40
Last AS STRING * 40
END TYPE

DIM BusList(1:100) as Business_Table

first$ = TRIM$(BusList(i&).First) ' : IF first$ = SPACE$(40) THEN first$ = ""
last$ = TRIM$(BusList(i&).Last) ' : IF last$ = SPACE$(40) THEN last$ = ""
IF last$ <>"" THEN fullname$ = last$
IF first$ <> "" THEN
IF last$ <> "" THEN
fullname$ = fullname$ + ", " + first
ELSE
fullname$ = first$
END IF
END IF



------------------
Henning

[Timm Motl]

Henning:

Try this...

#COMPILE EXE
#REGISTER NONE
#INCLUDE "WIN32API.INC"
 
TYPE Business_Table
   Company AS STRING * 40
   First   AS STRING * 40
   Last    AS STRING * 40
END TYPE
 
FUNCTION PBMAIN
   DIM BusList(1:100) AS Business_Table
 
   First$ = TRIM$(BusList(1).First, ANY CHR$(0) + CHR$(32))
   Last$  = TRIM$(BusList(1).Last,  ANY CHR$(0) + CHR$(32))
 
   IF Last$ <> "" THEN Fullname$ = Last$
   IF First$ <> "" THEN
      IF Last$ <> "" THEN
         Fullname$ = Fullname$ + ", " + First$
      ELSE
         Fullname$ = First$
      END IF
   END IF
 
   MSGBOX ">" + Fullname$ + "<  Length:" + STR$(LEN(Fullname$))
END FUNCTION

Timm

[Paul Squires]

Hi Henning,

Off the top of my head, try the following. I believe you need to
use the "ANY" version of TRIM in order to get trim the Nulls (CHR$(0))
from the type elements. By default strings in TYPEs are initialized
to nulls.

first$ = TRIM$(BusList(i&).First, ANY CHR$(0,32)) 
last$ = TRIM$(BusList(i&).Last, ANY CHR$(0,32)) 

IF last$ <>"" THEN fullname$ = last$
   IF first$ <> "" THEN 
      IF last$ <> "" THEN 
      fullname$ = fullname$ + ", " + first
   ELSE
      fullname$ = first$
   END IF
END IF

------------------
Paul Squires
www.PlanetSquires.com
mailto:[email protected][email protected]</A>

[Paul Squires]

Hey Timm, looks like we posted the answer at the exact same time!



------------------
Paul Squires
www.PlanetSquires.com
mailto:[email protected][email protected]</A>

[Timm Motl]

Paul:

Depends on what time zone you're in... I'm CDT... how about you?

[Neil Bertz]

Henning,

Now, I'm not sure if this is what you are looking for, but
I think that if you used ASCIIZ type variables instead of a
fixed length string...

TYPE Business_Table
Company AS ASCIIZ * 41
First AS ASCIIZ * 41
Last AS ASCIIZ * 41
END TYPE

FUNCTION PBMAIN AS LONG
DIM BusList(1:100) AS Business_Table

first$ = TRIM$(BusList(i&).First) ' : IF first$ = SPACE$(40) THEN first$ = ""
last$ = TRIM$(BusList(i&).Last) ' : IF last$ = SPACE$(40) THEN last$ = ""

MSGBOX STR$(LEN(first$))

IF last$ <>"" THEN fullname$ = last$
IF first$ <> "" THEN
IF last$ <> "" THEN
fullname$ = fullname$ + ", " + first$
ELSE
fullname$ = first$
END IF
END IF

END FUNCTION

Try changing the contents of first$, the msgbox should tell
you the actual length. (0 if it is empty)

ASCIIZ variables are fixed-length strings where the last character
is always a null (0), so for a 40 character string it had to be defined
using 41 bytes.

Hope this helps,

Neil Bertz

------------------
Neil Bertz
[email protected]
PowerBASIC Staff

[This message has been edited by Neil Bertz (edited October 18, 2001).]

[Fred Oxenby]

 If Len(Trim$(BusList(i&).First,any Chr$(0,32)) & _
        Trim$(BusList(i&).Last ,any Chr$(0,32)))= 0 Then Struct is empty

------------------
Fred
mailto:[email protected][email protected]</A>
http://www.oxenby.se