PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → WINDEV 25 → WD - Como recuperar em valores de cadeia de uma gravação de um arquivo Arquivo Hiper mas, tópicos não físicas lógicas?
WD - Como recuperar em valores de cadeia de uma gravação de um arquivo Arquivo Hiper mas, tópicos não físicas lógicas?
Iniciado por BOLLER ADRIANO, 30,jun. 2016 18:26 - No hay respuesta
#1
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 30,junio 2016 - 18:26
//Code d un bouton :
MonEnregistrement est une chaîne
HLitPremier(ARTICLE)
MonEnregistrement = HRecupèreEnregistrementLogique(ARTICLE)


Procedure HRecupèreEnregistrementLogique(sNomFic, sSeparateur=TAB, sSeparateurTableau=TAB)

//Variables :
sListeRubriques est une chaîne
sNomRubrique est une chaîne
sValeursRubriques est une chaîne

i est un entier = 1
sListeRubriques = HListeRubrique(ARTICLE,hLstOrdreLogique)
sNomRubrique = ExtraitChaîne(sListeRubriques,i,RC)
TANTQUE sNomRubrique <> EOT
sValeursRubriques += sSeparateur+{sNomFic+"."+sNomRubrique}+sSeparateur
i++
sNomRubrique = ExtraitChaîne(sListeRubriques,i,RC)
FIN
sValeursRubriques = sValeursRubriques[[Taille(sSeparateur)+1 A]]

RENVOYER sValeursRubriques


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensaje modificado, 30,junio 2016 - 18:27
→ Volver a WINDEV 25