You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
80 lines
2.0 KiB
80 lines
2.0 KiB
|
|
#include "jade.h"
|
|
|
|
|
|
MAIN
|
|
DIM AS CSTRING mystring = "This is a string.";
|
|
|
|
PRINT ( "LEFT(mystring,4)" );
|
|
PRINT (LEFT$(mystring,4));
|
|
PRINT ();
|
|
|
|
PRINT ( "MID$(mystring,5,4)" );
|
|
PRINT (MID$(mystring,5,4));
|
|
PRINT ();
|
|
|
|
PRINT ( "RIGHT$(mystring,7)");
|
|
PRINT (RIGHT$(mystring,7));
|
|
PRINT ();
|
|
|
|
PRINT ( "INSTR(mystring,\"is\")");
|
|
PRINT (STR$(INSTR(mystring,"is")));
|
|
PRINT ();
|
|
|
|
PRINT ( "LCASE$(mystring)" );
|
|
PRINT (LCASE$(mystring));
|
|
PRINT ();
|
|
|
|
PRINT ( "UCASE$(mystring)" );
|
|
PRINT (UCASE$(mystring));
|
|
PRINT ();
|
|
|
|
PRINT ( "MCASE$(mystring)" );
|
|
PRINT (MCASE$(mystring));
|
|
PRINT ();
|
|
|
|
PRINT ( "LTRIM$, RTRIM$, TRIM$" );
|
|
PRINT (LTRIM$(" This should not have leading spaces "));
|
|
PRINT (RTRIM$(" This should not have any trailing spaces "));
|
|
PRINT (TRIM$(" This should not have any leading or trailing spaces "));
|
|
PRINT ();
|
|
|
|
PRINT ( "SPLITPATH$(/Users/riveraa/myfile.txt,4)" );
|
|
PRINT (SPLITPATH$("/Users/riveraa/myfile.txt",4));
|
|
PRINT ( "SPLITPATH$(/Users/riveraa/myfile.txt,8)" );
|
|
PRINT (SPLITPATH$("/Users/riveraa/myfile.txt",8));
|
|
PRINT ( "SPLITPATH$(/Users/riveraa/myfile.txt,12)" );
|
|
PRINT (SPLITPATH$("/Users/riveraa/myfile.txt",12));
|
|
PRINT ( "SPLITPATH$(/Users/riveraa/myfile.txt,16)" );
|
|
PRINT (SPLITPATH$("/Users/riveraa/myfile.txt",16));
|
|
PRINT ();
|
|
|
|
PRINT ( "REVERSE$(mystring)" );
|
|
PRINT (REVERSE$(mystring));
|
|
PRINT ();
|
|
|
|
PRINT ( "REPLACE$(mystring,\"string\", \"Number\"" );
|
|
PRINT ( REPLACE$(mystring,"string","Number") );
|
|
PRINT ();
|
|
|
|
PRINT ( "VAL(\"123\") + 10" );
|
|
PRINT ( STR$(VAL("123") + 10) );
|
|
PRINT ();
|
|
|
|
PRINT ( "LOADFILE$()" );
|
|
DIM AS CSTRING fileContents, fname = "demo.cpp";
|
|
fileContents = LOADFILE$(fname);
|
|
// PRINT ( "Printing contents of \"" + fname + "\"" );
|
|
// PRINT (fileContents);
|
|
PRINT ();
|
|
|
|
PRINT ( "SAVEFILE()" );
|
|
SAVEFILE(fileContents,"output.txt");
|
|
PRINT ( "Contents saved to 'output.txt'");
|
|
PRINT ();
|
|
|
|
PRINT ( "FORMAT$(\"%d %s\", 10, \"TEN\")" );
|
|
PRINT ( FORMAT$("%d %s",10, "TEN") );
|
|
|
|
|
|
ENDMAIN
|
|
|