pb 获取oracle 的网络服务名,该怎么解决

pb 获取oracle 的网络服务名
请问在pb中怎么样能够获取所有本机已连接的oracle网络服务名？即连接参数中的：ServerName

------解决方案--------------------
要求还满高，那你就去解析tnsnames.ora算了
------解决方案--------------------
以行读取这个文件，凡有SERVICE_NAME就把后面的名字取出了就是了！
------解决方案--------------------
//简单写了一下，先给出个思路，有待完善
string ls_syntax,ls_current_syntax,ls_temp[]
long i,ll_length,ll_count
//ls_syntax tnsnames.ora文件的内容
string ls_listener

ls_temp[i]=''
ll_length=len(ls_syntax)
do while i<=ll_length
ls_temp[i] = mid(ls_syntax,i,1)
if ls_temp[i]='(' then
ll_count++
if ll_count = 1 then
ls_listener=trim(ls_current_syntax)
end if
end if

if ls_temp[i]=')' then
ll_count--
end if
ls_current_syntax+=ls_temp[i]
i++
loop


------解决方案--------------------
按行读也可以，以流模式来读也可以，需要解析servername