Moderador: Moderadores
Código: Selecionar todos
apelido=itamar&usuario=itamar+lins&senha=123456Código: Selecionar todos
STATIC FUNCTION split( cString, cSeparator )
LOCAL nPos
LOCAL aString := {}
DEFAULT cSeparator := ";"
cString := ALLTRIM( cString ) + cSeparator
DO WHILE .T.
nPos := AT( cSeparator, cString )
IF nPos = 0
EXIT
ENDIF
AADD( aString, SUBSTR( cString, 1, nPos-1 ) )
cString := SUBSTR( cString, nPos+1 )
ENDDO
RETURN ( aString )
Código: Selecionar todos
aParam := hb_RegExSplit( "&", cTexto )
Código: Selecionar todos
xParam := hb_RegExSplit( "=", cTexto )
Código: Selecionar todos
cText := StrTran( cText, "+", " " )
Código: Selecionar todos
PROCEDURE main
LOCAL aList, xValue, cText
cText := "apelido=itamar&usuario=itamar+lins&senha=123456"
aList := hb_RegExSplit( "&", cText )
FOR EACH xValue IN aList
xValue := hb_RegExSplit( "=", xValue )
xValue[ 2 ] := StrTran( xValue[ 2 ], "+", " " )
? xValue[ 1 ], xValue[ 2 ]
NEXT
Inkey(0)
Código: Selecionar todos
#!/usr/local/bin/hbrun
REQUEST HB_CODEPAGE_UTF8
function main(...)
LOCAL cEOL := + hb_eol() + hb_eol()
LOCAL cTemp, nRead, nLen, aList, xValue
hb_cdpSelect( "UTF8" )
OutStd('Content-type: text/html' + cEOL )
OutStd('<!DOCTYPE html>' + hb_eol() )
OutStd('<html>' + hb_eol() )
OutStd('<head>' + hb_eol() )
OutStd('<meta charset="UTF-8"/>' + hb_eol())
OutStd('</head>' + hb_eol() )
IF "POST" $ Upper( hb_GetEnv( "REQUEST_METHOD" ) ) //aqui retirada da hbtip
nLen := val(hb_getenv("CONTENT_LENGTH"))
cTemp := Space( nLen )
IF ( nRead := FRead( hb_GetStdIn(), @cTemp, nLen ) ) != nLen
OutStd("<p>Post error read " + hb_ntos( nRead ) + " instead of " + hb_ntos( nLen ) + hb_eol() )
ELSE
OutStd("<p>Post string is: " , HtmlDecodeUrl(cTemp) + hb_eol())
ENDIF
ENDIF
OutStd('<br>')
aList := hb_RegExSplit( "&", cTemp )
FOR EACH xValue IN aList
xValue := hb_RegExSplit( "=", xValue )
xValue[ 2 ] := StrTran( xValue[ 2 ], "+", " " )
OutStd( xValue[ 1 ], HtmlDecodeUrl(xValue[ 2 ]) + "<br>"+ hb_eol())
NEXT
OutStd("</body></html>" + hb_eol())
Return Nil
FUNCTION HtmlDecodeUrl( cString ) //Acrescentei alguns caracteres acentuados nesta função. Retirada de uma classe da xhb.hbc
RETURN hb_StrReplace( cString, { ;
"%26" => "&", ;
"%2B" => "+", ;
"%20" => " ", ;
"%27" => "'", ;
"+" => " ", ;
"%2C" => ",", ;
"%21" => "!", ;
"%7E" => "~", ;
"%23" => "#", ;
"%24" => "!", ;
"%25" => "%", ;
"%5E" => "^", ;
"%28" => "(", ;
"%29" => ")", ;
"%60" => "`", ;
"%2F" => "/", ;
"%C3%A0" => "à",;
"%C3%A1" => "á",;
"%C3%A2" => "â",;
"%C3%A3" => "ã",;
"%C3%80" => "À",;
"%C3%81" => "Á",;
"%C3%82" => "Â",;
"%C3%83" => "Ã",;
"%C3%A8" => "è",;
"%C3%A9" => "é",;
"%C3%AA" => "ê",;
"%E1%BA%BD" => "ẽ",;
"%C3%89" => "É",;
"%C3%88" => "È",;
"%C3%A7" => "ç",;
"%C3%87" => "Ç",;
"%C3%8A" => "Ê",;
"%E1%BA%BC" => "Ẽ",;
"%C3%8C" => "Ì",;
"%C3%8D" => "Í",;
"%C3%8E" => "Î",;
"%C4%A8" => "Ĩ",;
"%C3%B2" => "ò",;
"%C3%B3" => "ó",;
"%C3%B4" => "ô",;
"%C3%B5" => "õ",;
"%C3%92" => "Ò",;
"%C3%93" => "Ó",;
"%C3%94" => "Ô",;
"%C3%95" => "Õ",;
"%C3%BA" => "ú",;
"%C3%B9" => "ù",;
"%C5%A9" => "ũ",;
"%C3%BB" => "û",;
"%C3%9A" => "Ú",;
"%C3%99" => "Ù",;
"%C5%A8" => "Ũ",;
"%C3%9B" => "Û"})
Código: Selecionar todos
SELECT
SELECT
FROM
WHERE
WHERE
UNION
...
ORDER BY
Código: Selecionar todos
cQuery := "SELECT T.DATPREVPG, T.DT_VENCTO, T.* FROM ( "
cQuery += "SELECT PS.* "
cQuery += " FROM PAGAMENTO_FIN PS "
cQuery += " WHERE PS.DATPREVPG >= ? "
cQuery += " AND PS.DATPREVPG <= ? "
cQuery += " AND PS.RETENCAO = 'S' "
cQuery += " AND PS.NUM_PROC_PR IS NOT NULL "
cQuery += " AND PS.BLOQUEADA IS NULL "
cQuery += " AND PS.NUMCHEQUE IS NULL "
cQuery += " AND PS.DATPG IS NULL "
cQuery += " AND PS.RETIRADA IS NULL "
cQuery += "UNION "
cQuery += "SELECT P.* "
cQuery += " FROM PAGAMENTO_FIN P "
cQuery += " WHERE P.RETENCAO = 'S' "
cQuery += " AND P.BLOQUEADA IS NULL "
cQuery += " AND P.NUMCHEQUE IS NULL "
cQuery += " AND P.DATPG IS NULL "
cQuery += " AND P.RETIRADA IS NULL "
cQuery += " AND EXISTS "
cQuery += " ( "
cQuery += " SELECT 1 "
cQuery += " FROM PAGAMENTO_FIN PS1 "
cQuery += " WHERE PS1.DATPREVPG >= ? "
cQuery += " AND PS1.DATPREVPG <= ? "
cQuery += " AND PS1.RETENCAO = 'S' "
cQuery += " AND PS1.NUM_PROC_PR IS NOT NULL "
cQuery += " AND PS1.BLOQUEADA IS NULL "
cQuery += " AND PS1.NUMCHEQUE IS NULL "
cQuery += " AND PS1.DATPG IS NULL "
cQuery += " AND PS1.RETIRADA IS NULL "
cQuery += " AND P.NUMPROC = PS1.NUM_PROC_PR "
cQuery += " AND P.NUMOP = PS1.NUM_LIQ_PRI "
cQuery += " AND P.EMPENHO = PS1.NUM_EMP_PRI "
cQuery += " AND P.ORGAO_UNID = PS1.ORG_UNI_PRI "
cQuery += " AND P.EXERCICIO = PS1.EXERC_PRI "
cQuery += " ) ) T "
cQuery += "ORDER BY T.DATPREVPG, "
cQuery += " decode(T.DT_VENCTO, null, TO_DATE('30/12/1889', 'DD/MM/YYYY'), T.DT_VENCTO)"
Essa função retorna uma array.hb_RegExSplit() ?
Ué... se já tem hb_Eol()... tá pronto, não precisa mais nadaasimoes escreveu:um Hb_Eol() no final de cada linha, ai eu faço o split com Hb_Eol(), a ideia é gerar um txt
Código: Selecionar todos
cCmd := StrTran( cCmd, "SELECT ", hb_Eol() + "SELECT " )
cCmd := StrTran( cCmd, " FROM ", hb_Eol() + " FROM " )
cCmd := StrTran( cCmd, " GROUP BY ", hb_Eol() + " GROUP BY " )
cCmd := StrTran( cCmd, " ORDER BY ", hb_Eol() + " ORDER BY " )
Depois refaça seu teste, as arrays hoje já tem mais relação com memória disponível...clodoaldomonteiro escreveu:Pegar pedaços de uma string
por clodoaldomonteiro » 14 Jun 2024 15:19
Boas a todos.
contribuindo aqui com o post.
Estava tentando usar a função do xHarbour "HB_ATokens()", que é similar à função que Quintas passou aqui "hb_RegExSplit()" mas vi uma diferença interessante, que é o limite do tamanho das células, pois a função HB_ATokens() tem o limite de 4096 caracteres por célula e função hb_RegExSplit() não tem limite.