Jump to content
BergLevel

Trocando {} por delimitadores ASP

Recommended Posts

Boa tarde pessoa, estou com o seguinte problema, gostaria de saber por exemplo como faço para o meu sistema identificar que quando estiver com um { nomecliente } dentro do HTML que vem por banco de dados, no caso consultando uma campo na tabela, ele faça a conversão desse {} para <% %> fazer a leitura da minha string que no codigo asp da página ficara assim:

<% nomecliente = Recordset("Nome") %>

 

Então quando vier algo do banco de dados com essa { nomecliente } o sistema entenderá e mostrar o nome que for buscado no banco de dados!

 

Isso me servirá para ser mostrado por exemplo vários contratos criado por um modelo padrão anteriormente.

Share this post


Link to post
Share on other sites

use a função Replace, exemplo

Function Fix_Chars(Data As String) As String


    Data = Replace(Data, Chr(251), "<")
    Data = Replace(Data, Chr(252), ">")
    Data = Replace(Data, Chr(253), """)
    Data = Replace(Data, Chr(254), "'")
    Data = Replace(Data, Chr(255), "<br>")
    '----------------------------------------------------


    Fix_Chars = Data
    '-----------------

End Function

Share this post


Link to post
Share on other sites

Nesse caso infelizmente não deu certo, porem vou explicar melhor:

Em um campo de uma tabela eu tenho isso gravado:

 

==========================================================================================

 

Pelo presente instrumento particular de compromisso de compra e venda, com força de escritura publica de acordo com o art. 1° da lei 5.049/66, as partes a seguir mencionadas e classificadas.
{NomeVendedor}, {NacionalidadeVendedor}, {EstadoCivilVendedor}, {ProfissaoVendedor}, portador do RG nº {RGVendedor} {EmissorVendedor}/{UfEmissorVendedor} e CPF n° {CPFVendedor}, residente e domiciliado da {EnderecoVendedor}, nº {NumeroVendedor},– {BairroVendedor}, {CidadeVendedor} - {EstadoVendedor} doravante denominado simplesmente VENDEDOR.
{NomeComprador}, {NacionalidadeComprador}, {EstadoCivilComprador}, {ProfissaoComprador}, portador do RG nº {RGComprador} {EmissorComprador}/{UfEmissorComprador} e CPF nº {CPFComprador}, residente e domiciliado na {EnderecoComprador} n°{NumeroComprador} – {BairroComprador}, {CidadeComprador}, {EstadoComprador}, doravante denominado simplesmente COMPRADOR.onde atende pelos números {TelefoneComprador}
============================================================================================
Em outra pagina que vai lêr esse conteudo, eu preciso que quando o rs abrir esse conteudo as minhas variaveis sejam reconhecida, então onde tem {NomeVendedor} irá ser trocado por Fausto Silva Santos.
Previamente na pagina eu crio as variaveis.
Já fiz com "Replace" ele não consegue entender que <% = %> é o deliminador do ASP!

Share this post


Link to post
Share on other sites

Olá você vai usar o replace mesmo, como disse o xanburzum.

 

Você recebe o conteudo em uma varíável por exemplo:

set rs = conexao.execute("select * from tabela_contrato")

contrato = rs("campo_contrato_da_tabela")

contrato = replace(contrato, "{NomeVendedor}", rs("campo_nome_vendedor")
contrato = replace(contrato, "{NacionalidadeVendedor}", rs("campo_nome_vendedor")
contrato = ................ 

então vai fazendo isso em cada campo.

 

e depois basta escrever o instrumento particular de compromisso de compra e venda:

 

response.write contrato

Share this post


Link to post
Share on other sites

pode fazer normal, com o Replace, olha este exemplo, única diferença que ao invés de usar o array, troque pelos seus dados (recordset)

Function Replace_Bad_Words(Data As String) As String


    If Data = "" Then Exit Function
    '-------------------------------------

    'Dirt Words----------------------
    Bad_Word = Array("ass", "bitch", "biatch", "blowjob", "bukkake", "bullshit", "cunt", "cum", "dicked", "dickhead" _
             & "dickweed", "dildo", "fuck", "gangbang", "goddamnit", "handjob", "jackoff", "motherfucker", "motherfucking" _
             & "pissed", "pisses", "---o", "pussy", "pussified", "shit", "titties", "twat")
    '--------------------------------
    
    'Replace Bad Words-----------------
    For Bad = 0 To UBound(Bad_Word)
    Data = Replace(Data, Bad_Word(Bad), String(Len(Bad_Word(Bad)), "*"), , , vbTextCompare)
    Next Bad
    '----------------------------------


    Replace_Bad_Words = Data
    '--------------------------

End Function

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.