nik1967
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
Pascal Scripting: StringChangeEx
Прототип:
function StringChangeEx(var S: String; const FromStr, ToStr: String; const SupportDBCS: Boolean): Integer;
Описание:
Заменяет все совпадения FromStr в строке S на ToStr. Если SupportDBCS равен True, символы с двухбайтовой кодировкой в строке S будут правильно распознаны и обработаны. Иначе, функция ведет себя как двоично безопасный. Возвращает количество совпадений и замен FromStr.
Комментарии:
При работе со строками, содержащими пути или имена файлов, передайте значение True в параметре SupportDBCS. Иначе, пути или имена файлов с китайскими, японскими или корейскими символами могут быть повреждены.
Например:
var
S: String;
begin
S := ExpandConstant('{commonappdata}');
// S = 'C:\Documents and Settings\All Users\Application Data'
StringChangeEx(S, '\', '/', True);
// S = 'C:/Documents and Settings/All Users/Application Data'
end;
|
Код:
Pascal Scripting: SaveStringToFile
Прототип:
function SaveStringToFile(const FileName: String; const S: AnsiString; const Append: Boolean): Boolean;
Описание:
Сохраняет указанную строку в указанный файл. Если Append является True и указанный файл уже существует, то текст будет добавлен к файлу, вместо его полной перезаписи. При успешном выполнении возвращает True, иначе False.
Комментарии:
Эта функция автоматически не записывает символ перевода строки. Если Append является True и в конце существующего файла отсутствует символ перевода строки, функция добавит содержимое переменной S к последней строке. Чтобы избежать этого, вы можете поместить символы перевода строки перед и после вашей строки:
SaveStringToFile('c:\filename.txt', #13#10 + 'the string' + #13#10, True);
|
|
Всего записей: 1076 | Зарегистр. 11-10-2006 | Отправлено: 09:58 23-12-2017 | Исправлено: nik1967, 10:00 23-12-2017 |
|
