如何截取这种字符串？ (10分)

H

huayf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #1

动态的字符串：#########：
#########（）
######### 三种形式，我要截取 ： 或 （ 以前的字符串
或 整个的字符串（第三种情况）
我不知道怎么对字符串进行比较，该怎么判断字符串中是否含有 ： 或 （

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #2

copy(sss,1,pos(':',sss)-1);//sss为你要截取的字符串！
copy(sss,1,pos('(',sss)-1);

 

H

huayf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #3

如何判断字符串中是否有 ： 或 （字符

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #4

pos函数，如果有则返回位置

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #5

yes，看看pos函数的帮助就知道了

 

江

江远

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #6

使用POS()函数
function Pos(Substr: string;
S: string): Integer;
该函数在字符串S中查找子字符串SubStr,若存在则返加其位置，否则返回0。
Pos searches for a substring, Substr, in a string, S. Substr and
S are string-type expressions.
Pos searches for Substr within S and returns an integer value that
is the index of the first character of Substr within S.
Pos is case-sensitive. If Substr is not found, Pos returns zero.

 

L

loxtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #7

function huayf(sss:string):string;
begin
if pos(':',sss)>0 then
result:=copy(sss,1,pos(':',sss)-1) //sss为你要截取的字符串！
else
if pos('(',sss)>0 then
result:=copy(sss,1,pos('(',sss)-1)
else
result:=sss;
end;

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #8

这个问题该结束了。
看看POS的说明，就知
pos(subString,s) 这是个函数，返加subString 在s中出现的位置。如果没有找到substring
则返回0

 

H

huayf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-26

• #9

接受答案