如何作字串處理? |
|
adonis
高階會員 發表:140 回覆:258 積分:159 註冊:2002-04-15 發送簡訊給我 |
|
klmer
一般會員 發表:11 回覆:46 積分:13 註冊:2002-03-13 發送簡訊給我 |
sPath :string; sPath :='C:\123\456\789\10.txt ';
1.copy(sPath,1,15);
2.copy(sPath,16,6);
3.copy(sPaht,11,3); 參考看看....^^" 1.C:\123\456\789\10.txt => 要取出 C:\123\456\789\ 或
2.C:\123\456\789\10.txt => 要取出 10.txt 又或
3.C:\123\456\789\10.txt => 要取出 789 謝謝。
|
JasonLee
一般會員 發表:0 回覆:3 積分:0 註冊:2002-03-13 發送簡訊給我 |
如果是檔案路徑的處理
(以下function source code 處理方法都在 SysUtil Unit中)
1.C:\123\456\789\10.txt => 要取出 C:\123\456\789\ 或
可用function ExtractFileDir(const FileName: string): string; 2.C:\123\456\789\10.txt => 要取出 10.txt 又或
function ExtractFileName(const FileName: string): string; 3.C:\123\456\789\10.txt => 要取出 789 謝謝。
應由(1)處理後的字串往回找 '\' 再用 Copy 取出至尾端的字串
|
adonis
高階會員 發表:140 回覆:258 積分:159 註冊:2002-04-15 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
引言: 假使我的字串是依每次不同的情形所產生,而非預先已知的,那又該如何處理, 謝謝。用 Pos 函式來判斷您要的字串的位子 然後再用 Copy 取出, 例 var s1, s2: string; iPos: Integer; begin s1 := 'C:\123\456\789\10.txt'; // 判斷 'C:\123\456\789\' 字串在 s1 中的位置 iPos := Pos('C:\123\456\789\', s1); if iPos <> 0 then // s1 中有找到 'C:\123\456\789\' 字串 s2 := Copy(s1, iPos, Length(s1)); end; |
adonis
高階會員 發表:140 回覆:258 積分:159 註冊:2002-04-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |