Q5/ws_objects/longjoe_report.pbl.src/f_get_dwcomment.srf

$PBExportHeader$f_get_dwcomment.srf
global type f_get_dwcomment from function_object
end type

forward prototypes
global function long f_get_dwcomment (string arg_pblpath, string arg_dwname, ref string arg_comments, ref string arg_msg)
end prototypes

global function long f_get_dwcomment (string arg_pblpath, string arg_dwname, ref string arg_comments, ref string arg_msg);String  s[4]
String ls_comments[]
String ls_dwname[]
Long i,k,it_max
Long rslt = 1
Boolean lb_find = FALSE
s[4] = LibraryDirectory(arg_pblpath,DirDataWindow!) //name ~t date/time modified ~t comments ~n

IF s[4]  = '' THEN
	rslt = 0
	arg_msg = '格式库文件不正确或读取错误'
	GOTO ext
END IF

DO WHILE TRUE
	k = Pos(s[4],'~t')
	IF k = 0 THEN EXIT
	s[1] = Left(s[4],k -1)
	s[4] = Mid(s[4],k+1)
	k = Pos(s[4],'~t')
	s[3] = Left(s[4],k -1)
	s[4] = Mid(s[4],k+1)
	k = Pos(s[4],'~n')
	s[2] = Left(s[4],k -1)
	s[4] = Mid(s[4],k+1)
	i++
	ls_dwname[i] = s[1]
	ls_comments[i] = Left(s[2],Len(s[2]) - 1 )
LOOP

IF i = 0 THEN
	rslt = 0
	arg_msg = '格式库文件不正确或读取错误'
	GOTO ext
END IF

it_max = i

FOR i = 1 TO it_max
	IF arg_dwname = ls_dwname[i] THEN
		arg_comments = ls_comments[i]
		lb_find = TRUE
		EXIT
	END IF
NEXT

IF NOT lb_find THEN
	rslt = 0
	arg_msg = '格式库文件内没有该数据窗口信息'
	GOTO ext
END IF


ext:
RETURN rslt


end function