Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
Pages: 1
ok, il n'y a pas trop d'interet...mais on ne sait jamais ?
attention, ce script ne fonctionne que depuis la version 7 de powerbuilder !
/*****************************************************************/ /* Nom : Liste des librairies de l'application */ /* But : */ /* Arguments: */ /* Appel : */ /* Remarques: */ /* Histo : SKA */ /****************************************************************/ string ls_list string ls_name, ls_pos string ls_library[] string ls_infos long ll_pos, ll_max ll_max = 0 ls_list = getlibrarylist() // fonction existante depuis pb7 ls_pos = ',' if len(ls_list) > 0 then ll_pos = pos(ls_list,ls_pos) do while ll_pos > 0 ls_name = left(ls_list,ll_pos - 1) ll_max ++ ls_library[ll_max] = ls_name ls_list = mid(ls_list,ll_pos + 1, len(ls_list)) ll_pos = pos(ls_list,ls_pos) loop if len(ls_list) > 1 then ll_max ++ ls_library[ll_max] = ls_list end if end if for ll_max = 1 to upperbound(ls_library) ls_infos = ls_infos + ls_library[ll_max] if ll_max < upperbound(ls_library) then ls_infos = ls_infos + "~n" end if next messagebox("Liste des librairies du projet en cours",ls_infos)
Hors ligne
Pages: 1