Files
SyncHome/trunk/ulp/source/string.ulp
paolo.iocco ab6f495c89
2023-03-09 10:24:21 +00:00

40 lines
1.1 KiB
Plaintext

/*
*
* String utilities.
*
* Copyright 2007 - 2009 by John Johnson Software, LLC.
* All Rights Reserved.
*
*/
#include "string.h"
if (leftstr("test string", 3) != "tes") exit(12);
if (rightstr("test string", 3) != "ing") exit(13);
if (ltrim(" test string") != "test string") exit(14);
if (rtrim("test string ") != "test string") exit(15);
if (trim(" test string ") != "test string") exit(16);
if (remove_last_dir("c:/dir/thet/ssot/") != "c:/dir/thet") exit(17);
string replacements;
string original_string;
string new_string;
string board_filepath;
int t = time();
board(b) board_filepath = b.name;
replacements =
key_value_record("%P", filedir(board_filepath)) +
key_value_record("%F", filename(board_filepath)) +
key_value_record("%B", filesetext(filename(board_filepath), "")) +
key_value_record("%D", t2string(t)) +
key_value_record("%S", "top") +
key_value_record("%T", "drill");
original_string = "Path = %P,\n Filename = %F,\n" +
"Board Name = %B, Now is %D\n" +
"Side is %S, and this is the %T file.";
new_string = substitute(original_string, replacements);
dlgMessageBox(new_string);