【PB】树型结构的遍历

迈不过友情╰ 2022-06-17 09:41 122阅读 0赞

**树型结构遍历**

--------------------

<table> 
 <tbody> 
  <tr> 
   <td>  <span style="">作者：郭宝利　　来源：原创　　日期：2004.06.27　</span>  <span style=""><br> </span> <p><span style="">树型结构的遍历通常使用递归程序来实现，所以本节给出一个按照内容查找，对树型结构进行遍历，如果和要查找的内容相等，则返回该节点的Handle。函数如下：</span></p> </td> 
  </tr> 
 </tbody> 
</table>

/*-----------------------------------------------------------------------------
    * 函数名称：long wf_reader(long al_handle,string as_target)
    * 函数作用：遍历树型结构，找到指定内容的节点。
    * 返 回 值：节点的Handle。
    * 算法描述：遍历树型结构，使用递归完成。
    * 编写日期：2004.6.26
    * 编 写 人：达通兴电脑科技  郭宝利
    *----------------------------------------------------------------------------*/
    long ll_handle
    long ll_handleOld
    TreeViewItem ltvi_Item
    String ls_label
    String ls_data
    
    if tv_1.Getitem(al_handle,ltvi_Item)= -1 then return -1
    
    ls_label=Trim(String(ltvi_Item.label))
    ls_data=Trim(String(ltvi_Item.data))
    
    if ls_label = as_target then
    	return al_handle
    else
    	ll_handle = tv_1.FindItem(ChildTreeItem!,al_handle)
    end if
    
    
    if ll_handle > 0 then
    	if tv_1.Getitem(ll_handle,ltvi_Item)= -1 then return 0
    	ls_label=Trim(String(ltvi_Item.label))
    	ls_data=Trim(String(ltvi_Item.data))
    	
    	if ls_label = as_target then
    		return ll_handle//找到了要添加的节点
    	else
    		return wf_reader(ll_handle,as_target)
    	end if
    else
    	ll_handleOld = al_handle
    	ll_handle = tv_1.FindItem(NextTreeItem!,ll_handleOld)
    	do while ll_handle < 0
    		ll_handle = tv_1.FindItem(ParentTreeItem!,ll_handleOld)
    		if ll_handle > 0 then
    			ll_handleOld = ll_handle
    			ll_handle = tv_1.FindItem(NextTreeItem!,ll_handleOld)
    		else
    			ll_handle = tv_1.FindItem(NextTreeItem!,ll_handle)
    			if ll_handle < 0 then
    				return -1
    			end if
    		end if
    	loop
    	if tv_1.Getitem(ll_handle,ltvi_Item)= -1 then return -1
    	ls_label=String(ltvi_Item.label)
    	ls_data=String(ltvi_Item.data)
    
    	if ls_label = as_target then
    		return ll_handle//找到了要添加的节点
    	else
    		return wf_reader(ll_handle,as_target)
    	end if
    end if