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
