| 274 |
Result := AnsiPos(ZenToHan(Substr), ZenToHan(S)); |
Result := AnsiPos(ZenToHan(Substr), ZenToHan(S)); |
| 275 |
end; |
end; |
| 276 |
(************************************************************************* |
(************************************************************************* |
| 277 |
* FAT/NTFSのファイル名に許されない文字(\,/,*,>,<,|)を全角に置換する |
* FAT/NTFSのファイル名に許されない文字(\,/,:,.,;,*,>,<,|)を全角に置換する |
| 278 |
*************************************************************************) |
*************************************************************************) |
| 279 |
function ReplaseNoValidateChar( inVal : String): String; |
function ReplaseNoValidateChar( inVal : String): String; |
| 280 |
begin |
begin |
| 281 |
Result := CustomStringReplace(inVal, '\', '¥'); |
Result := CustomStringReplace(inVal, '\', '¥'); |
| 282 |
Result := CustomStringReplace(Result, '/', '/'); |
Result := CustomStringReplace(Result, '/', '/'); |
| 283 |
|
Result := CustomStringReplace(Result, ':', ':'); |
| 284 |
|
Result := CustomStringReplace(Result, '.', '.'); |
| 285 |
|
Result := CustomStringReplace(Result, ';', ';'); |
| 286 |
Result := CustomStringReplace(Result, '*', '*'); |
Result := CustomStringReplace(Result, '*', '*'); |
| 287 |
Result := CustomStringReplace(Result, '>', '>'); |
Result := CustomStringReplace(Result, '>', '>'); |
| 288 |
Result := CustomStringReplace(Result, '<', '<'); |
Result := CustomStringReplace(Result, '<', '<'); |