在PB中字段类型为text,如何读取前半部分数据

[yehe999]

在PB中数据库在PB中字段类型为text,
在输入数据时,可以按CTRL + ENTER使数据换行.
如下输入：
aaaaaaaaaaaa
bbbbbbbbbbb
则数据库中保存为aaaaaaaaaaaa口口bbbbbbbbbbb

请问如何读取前半部分数据即取aaaaaaaaaaaa

[qiuhu2000]

太简单了,提供函数如下
//*********************************************
//入口参数:
// sept :使用的分割符
// imtemdata:原输入字符串
// argnum :获取符合条件的第几字符串
//作者：qiuhu2000
//时间：2000年03月2日
//返回值:字符型
//********************************************

integer li_pos,li_count,li_matchcnt,li_septlen
string ls_substr,ls_str

li_septlen=len(sept)
ls_str=itemdata
do
li_pos=pos(ls_str,sept,1)
IF li_pos=0 THEN
IF li_matchcnt=(argnum - 1) THEN
Return ls_str
ELSE
Return "-1"
END IF
ELSE
ls_substr=mid (ls_str, 1, li_pos - 1)
//ls_str=right(ls_str,len(ls_str) - li_pos - li_septlen + 1 )//根据8.0与6.5的区别修改
ls_str=mid(ls_str,li_pos+li_septlen,len(ls_str) - li_pos - li_septlen + 1)
IF isNULL(ls_str) THEN RETURN '-1'
li_matchcnt++
li_count++
END IF
loop until li_count=argnum
return ls_substr


用这个函数,分解~r~n符号,就可以得到了

[qiuhu2000]

具体用这个函数的时候,比如把这个函数名称叫,f_getsept(sept,imtemdata,argnum)
那么你要的就是这样写:f_getsept("~r~n",data,1)就行了,知道了吗?

[xslee]

//假设stext是你的TEXT值
//lsout是返回值

long llpos
string lsout

llpos = posW(stext,'~r~n')
if llpos > 0 then
lsout = Leftw(stext,llpos - 1)
end if