Manusear strings dentro de um texto.

Mensagem por **Itamar M. Lins Jr.** » 27 Mai 2020 14:03

Ola!
Como eu faço para ler, cortar e adicionar em um texto, por exemplo:

<!DOCTYPE html>
<html>
<body>

<?prg
? "Primeiro PRG script!"
?>

<?prg ? "Segundo PRG script!" ?>

</body>
</html>

Tenho que ler e aguardar a parte até a tag "<?prg" depois pegar dentro desta tag o código e juntar com o resto.

O texto deve sai assim:

<!DOCTYPE html>
<html>
<body>
Primeiro PRG script!
Segundo PRG script!
</body>
</html>

Lembrando que pode ter n tags "<?prg xxx ?>".
Não se preocupar com a parte que vai remover "<?prg" e "?>"
Parece com a rotina que temos para extrai as tags do XML.

Saber quantas vezes essa tag aparece no texto... e cortando e colando.

Saudações,
Itamar M. Lins Jr.

Mensagem por **JoséQuintas** » 27 Mai 2020 19:49

Seria mais prático se isso estivesse dentro do tal PRG.

Talvez.... ir pegando um bloco de cada vez.
Acho que mais ou menos isto:

Código: Selecionar todos

nStart := 1
DO WHILE .T.
   nStart := hb_At( "<?prg", cHtml, nStart )
   IF nStart == 0
      EXIT
   ENDIF
   nEnd := hb_At( "?>, cHtml, nStart )
   // sei lá o que vai fazer
  cHtml := Subst( cHtml, 1, nStart - 1 ) + ;
      "sei la o que vai fazer" + ;
     Substr( cHtml, nEnd )
   nStart := hb_At( "?>", cHtml, nStart ) + 2
ENDDO

lwinter · Mensagem por **lwinter** » 27 Mai 2020 21:06

Itamar, nao sei o que esta pretendendo fazer mas se for possivel fazer com JSON seria muito mais facil ate porque o harbour trabalha com o JSON de forma nativa importando e exportanto de hash table para json e vice versa.
no json, voce pode exportar qualquer coisa fazendo um encode base 64 e vice versa. muito mais facil de dar manutencao. e simples de programar. Mas nao sei se esse é o seu caso.
Só uma curiosidade o json vem substituindo devagarzinho o XML. Hoje temos o jsonc que deixa voce fazer comentarios no arquivo.

Mensagem por **Itamar M. Lins Jr.** » 27 Mai 2020 22:34

Ola!
Parece que o pessoal já conseguiu fazer.
Vou ver depois como fizeram.
É para poder executar um condigo dentro de um arquivo .HTML igual PHP/Python faz... O harbour via hb_CompileFromBuff() no mod_harbour.
Esperando o commit para testar.

Saudações,
Itamar M. Lins Jr.

Mensagem por **Itamar M. Lins Jr.** » 27 Mai 2020 22:42

Ola!
hb_TokenCount() retorna 3, mas só tem 2 "<?prg" no exemplo acima, não sei pq retorna 3.
index.html

Código: Selecionar todos

    <!DOCTYPE html>
    <html>
    <body>

    <?prg
    ? "Primeiro PRG script!"
    ?>

    <?prg ? "Segundo PRG script!" ?>

    </body>
    </html>

Código: Selecionar todos

Function Main
Local cHtml:=hb_memoread('index.html')
? cHtml
? hb_TokenCount(cHtml, "<?prg") //retorna 3 deveria ser 2!

Saudações,
Itamar M. Lins Jr.

Mensagem por **JoséQuintas** » 28 Mai 2020 07:14

Itamar M. Lins Jr. escreveu:hb_TokenCount() retorna 3, mas só tem 2 "<?prg" no exemplo acima, não sei pq retorna 3.

Depende de como ele trata.
Apesar de só ter 2 blocos com <?prg, sobre 1 bloco sem isso.

ANDRIL · Mensagem por **ANDRIL** » 28 Mai 2020 08:18

Tenta

Código: Selecionar todos

Function Main
	Local cHtml:=hb_memoread('index.html')
	? cHtml
	? my_TokenCount(cHtml, "<?prg") //retorna 3 deveria ser 2!

Código: Selecionar todos

function my_TokenCount(texto,busca)
LOCAL ret:=0
do while .t.
	p=at(busca,texto)
	if (p>0)
		texto=substr(texto,p+len(busca))
		ret++
	else
	exit
	endif
enddo
return ret

Att.

ANDRIL · Mensagem por **ANDRIL** » 28 Mai 2020 08:28

As funções hb_TokenCount() e hb_aTokens() quando não encontram o que procuram retornam 1, deve ser um bug.

Código: Selecionar todos

Local cHtml:=hb_memoread('index.html')
        ? cHtml
        ? hb_TokenCount(cHtml, "<?prg")-1 //retorna 2
        cHtml:= ''
        ? hb_TokenCount(cHtml, "<?prg")   //retorna 1

Ou seja, deveria retornar 0 por que cHtml passou a ser vazia.
Att.