17 Ago 2019 19:01
17 Ago 2019 22:03
FUNCTION TextToArray( cTexto, nLargura, lAjusta )
LOCAL cLinha, nPos, acTextList := {}
hb_Default( @lAjusta, .T. )
cTexto := AllTrim( cTexto )
DO WHILE Len( cTexto ) > nLargura
nPos := Rat( " ", Left( cTexto + " ", nLargura ) )
IF nPos == 0
nPos := nLargura
ENDIF
cLinha := Left( cTexto, nPos - 1 )
cTexto := AllTrim( Substr( cTexto, nPos ) )
nPos := At( " ", cLinha )
IF lAjusta .AND. nPos != 0
DO WHILE Len( cLinha ) < nLargura
cLinha := Stuff( cLinha, nPos, 0, " " )
DO WHILE Substr( cLinha, nPos, 1 ) == " " .AND. nPos <= Len( cLinha )
nPos += 1
ENDDO
DO WHILE Substr( cLinha, nPos, 1 ) != " " .AND. nPos <= Len( cLinha )
nPos += 1
ENDDO
IF nPos >= Len( cLinha )
nPos := At( " ", cLinha )
ENDIF
ENDDO
ENDIF
Aadd( acTextList, cLinha )
ENDDO
IF Len( cTexto ) != 0
AAdd( acTextList, cTexto )
ENDIF
IF Len( acTextList ) == 0
acTextList := { "" }
ENDIF
RETURN acTextList
17 Ago 2019 22:12
REQUEST HB_CODEPAGE_PTISO
#include "set.ch"
PROCEDURE Main
LOCAL cLinha
LOCAL cText := "Atuar com desenvolvimento OpenText Content Server (LiveLink), " + ;
"OpenText Capture Center (OCC), OpenText oscript, brava Enterprise, OpenText " + ;
"weblingo, XML/XSLT, C#, VB.net, Visual Basic, ASP, C, PL/SQL, HTML, Ajax, VB Script, " + ;
"Java script, jQuery, Object Pascal, FoxPro, Clipper, Fortran, CVS, Web Service " + ;
"Standards- SOAP, WSDL Bancos de dados Oracle, MS SQL Server, MS Access, InterBase, " + ;
"Informix. Experiência em CS 10,2 para CS V16 e desenvolver soluções de software usando. " + ;
"Conhecimento e experiência com o OpenText Content Server, Archive Server, Directory " + ;
"Services, extensões de fluxo de trabalho, exibições de formulário, relatórios, relatórios " + ;
"da Web, Capture Center, DocuLink, Document pipelines, desenvolvimento OScript, gerenciamento " + ;
"de registros, brava, Tivoli LDAP Server, Microsoft IIS, Microsoft SQL Server, SQL, Java, " + ;
"Javascript, JQuery, AJAX, HTML5, XML e CSS. Funcionalidade de fluxos de trabalho estendido, " + ;
"incluindo novas etapas e tipos de fluxo de trabalho. Inglês fluente"
Set( _SET_CODEPAGE, "PTISO" )
SetMode(30,90)
SetColor("W/B")
CLS
@ 1, 0 SAY ""
FOR EACH cLinha IN TextToArray( cText, 60, .T. )
@ Row() + 1, 0 SAY cLinha
NEXT
Inkey(0)
RETURN
18 Ago 2019 17:37