首先拿到手上的是乙個路徑加上檔名的字串,但因為某種需要,我僅僅只要路徑,不需要檔案文,這時我們就可以做以下操作即可得到自己想要的。
procedure tform4.button1click(sender: tobject);
varstr:string;
str1:string;
str2:string;
n:integer;
x:integer;
x1:integer;
i:integer;
begin
str := 'f:\vba\delphi學習\mytest\k51\邊框和底紋.xls';
str1 := 'f:\vba\delphi學習\mytest\k51\邊框和底紋.xls';
n := length(str);
i := -1;
//注意要從-1開始,因為還沒開始執行就加一了
while (x <> 0) do
//一直迴圈,知道最終被擷取的字串中不包含『\』則終止
begin
x := pos('\',str);
//使用查詢字元位置函式,查詢出『\』在該str字串中的位置
i := i + 1;
str := copy(str, x + 1, n - (x + 1));
//擷取子字串函式,擷取從第x+1位開始長度為n-(x+1)的子字串,並作為函式值返回
end;
x1 := pos(str,str1);
//再從原字串中查詢以上執行出來的str子字串,並返回它的開始位置
str2 := copy(str1, 1, x1-1);//這一步則是截取出以上執行出來的str子字串除外的整個字串
showmessage(str2);
end;
執行結果:
C 從某個特定字串到之後某個字串的擷取
思路為先找到要擷取字串開始位置,擷取成新的字串,再在新的字串裡找到結束位置,再次進行擷取就是需要的字串了。streamreader fread new streamreader filename,system.text.encoding.getencoding gb2312 讀取字元流 string...
js 判斷字串中是否包含某個字串
string物件的方法 方法一 indexof 推薦 var str 123 console.log str.indexof 3 1 true indexof 方法可返回某個指定的字串值在字串中首次出現的位置。如果要檢索的字串值沒有出現,則該方法返回 1。方法二 search var str 123...
js 判斷字串中是否包含某個字串
string物件的方法 方法一 indexof 推薦 var str 123 console.log str.indexof 3 1 true indexof 方法可返回某個指定的字串值在字串中首次出現的位置。如果要檢索的字串值沒有出現,則該方法返回 1。方法二 search var str 123...