(old)Puppy Linux Discussion Forum

Code: Select all

DECLARE Array$ ASSOC STRING
Array_index = 0
OPEN My_file$ FOR READING AS Filehandle_
WHILE NOT(ENDFILE(Filehandle_)) DO
	INCR Array_index
	READLN Txt$ FROM Filehandle_
	Array$(STR$(Array_index)) = Txt$
WEND
CLOSE FILE Filehandle_

Code: Select all

' --------------------
FUNCTION CAT(STRING FILENAME$)
' --------------------
    LOCAL fileline$, txt$ TYPE STRING
    IF FILEEXISTS(FILENAME$) THEN
        OPEN FILENAME$ FOR READING AS catfile
        WHILE NOT(ENDFILE(catfile)) DO
            READLN fileline$ FROM catfile
            txt$ = CONCAT$(txt$, fileline$, NL$)
        WEND
        CLOSE FILE catfile
    END IF
    RETURN CHOP$(txt$)
END FUNCTION

x$ = CAT("myfile.txt")
SPLIT x$ BY NL$ TO myarray$ SIZE mysize

Code: Select all

x$ = EXEC$("cat myfile.txt")
SPLIT x$ BY NL$ TO myarray$ SIZE mysize

Code: Select all

'--- cat the file into an array using  x$ ---'
x$ = EXEC$("cat /etc/rc.d/PUPSTATE")
SPLIT x$ BY NL$ TO myarray$ SIZE mysize 

'--- this prints all arrays ---'
FOR x = 0 TO mysize  - 1
    PRINT myarray$[x]
NEXT 

'--- this prints only the first array ---'
PRINT myarray$[0]

'--- this prints only the scecond array ---'
PRINT myarray$[1]

'--- this prints only the third array ---'
PRINT myarray$[2]

Code: Select all

#str=something

str=""

if [ $str ]
then
	echo "Not empty"
else
	echo "Empty"
fi

Code: Select all

Txt$ = "big_bass"

IF REGEX(Txt$, "[^[:digit:]]") THEN
	PRINT "Yep, ", Txt$, " is an ahpha dog!"
END IF

IF REGEX(Txt$, "_|X") THEN
	PRINT "Yes, there IS an underline chr or a capital X."
END IF

Code: Select all

#str=something

str=""

if [ $str ]
then
   echo "Not empty"
else
   echo "Empty"
fi 

Code: Select all

str$ = ""

IF LEN( str$ ) THEN
	PRINT "Not empty"
ELSE
	PRINT "Empty"
END IF

Code: Select all

' Define runtime check for size of array
DEF FN bound(x) = SIZEOF(x)/SIZEOF(STRING)

Code: Select all

' Define runtime check for size of array
DEF FN bound(x) = SIZEOF(x)/SIZEOF(STRING)

Code: Select all

' Define runtime check for size of array
DEF FN BOUND_STR(x) = SIZEOF(x)/SIZEOF(STRING)
' Create array of adjectives
DECLARE adje$[] = { "autumn", "hidden", "bitter", "misty", "silent", "empty", "dry", "dark", "summer", "icy", \
        "delicate", "quiet", "white", "cool", "spring", "winter", "patient", "twilight", "dawn", "crimson", \
        "wispy", "weathered", "blue", "billowing", "broken", "cold", "damp", "falling", "frosty", "green" }
' Create array of nouns
DECLARE noun$[] = { "waterfall", "river", "breeze", "moon", "rain", "wind", "sea", "morning", "snow", "lake", \
        "sunset", "pine", "shadow", "leaf", "dawn", "glitter" }
' make randomized ajdective and noun line from array elements
myline1$ = CONCAT$(adje$[RANDOM(BOUND_STR(adje$))], " ", noun$[RANDOM(BOUND_STR(noun$))])
' show result
PRINT myline1$
' show array dimensions
PRINT BOUND_STR(adje$)
PRINT BOUND_STR(noun$)

Code: Select all

DEF FN BOUND_NUM(x) = SIZEOF(x)/SIZEOF(NUMBER)
' Create array of numbers
DECLARE nums[] = { 1, 2, 3.5, 4, -5, 6, 7, 8, 9, 10, 11, 0 }

PRINT BOUND_NUM(nums)

Code: Select all

'--- cat the file into an array using  x$ ---'
x$ = EXEC$("cat /etc/rc.d/PUPSTATE")
SPLIT x$ BY NL$ TO myarray$ SIZE mysize

'--- this prints all arrays ---'
FOR x = 0 TO mysize  - 1
    PRINT myarray$[x]
NEXT