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

yehe999 2003-05-08 10:31:39
在PB中数据库在PB中字段类型为text,
在输入数据时,可以按CTRL + ENTER使数据换行.
如下输入:
aaaaaaaaaaaa
bbbbbbbbbbb
则数据库中保存为aaaaaaaaaaaa口口bbbbbbbbbbb

请问如何读取前半部分数据即取aaaaaaaaaaaa
...全文
34 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xslee 2003-05-08
//假设stext是你的TEXT值
//lsout是返回值

long llpos
string lsout

llpos = posW(stext,'~r~n')
if llpos > 0 then
lsout = Leftw(stext,llpos - 1)
end if
回复
qiuhu2000 2003-05-08
具体用这个函数的时候,比如把这个函数名称叫,f_getsept(sept,imtemdata,argnum)
那么你要的就是这样写:f_getsept("~r~n",data,1)就行了,知道了吗?
回复
qiuhu2000 2003-05-08
太简单了,提供函数如下
//*********************************************
//入口参数:
// 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符号,就可以得到了
回复
相关推荐
发帖
PowerBuilder
创建于2007-09-28

868

社区成员

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2003-05-08 10:31
社区公告
暂无公告