Início / coding / Perguntas / 79248181
Accepted
Rob Myre
Asked: 2024-12-03 23:19:51 +0800 CST

VBA Substitui atributo “Iniciar” exclui texto

  • 772

Essa é estranha. Estou tentando substituir a segunda ocorrência de um valor usando a Replacefunção. É isso que eu tenho.

Sub_string = Replace(sub_string, "<ul>", "", ulnestfound, 1, vbTextCompare)

Meu pensamento é que a Replacefunção começaria a olhar para a posição ulnestfound, e substituiria a primeira ocorrência de "<ul>"daquele ponto. O que está realmente acontecendo é que todo o texto anterior a ulnestfoundestá sendo excluído, junto com a <ul>tag. Então, por exemplo, se ulnestfound = 100, os primeiros 100 caracteres de sub_stringestão sendo excluídos, e então a substituição é feita.

Alguma ideia do porquê isso está acontecendo? Está me deixando louco.

Tentei digitar manualmente o valor inicial, que foi como percebi o que estava acontecendo. Não consigo imaginar por que ele apagaria texto desse jeito.

vba

1 respostas

  1. Best Answer

    A documentação da função Replace diz:

    Retorna uma string, que é uma substring de uma expressão de string começando na posição inicial (padrão 1), na qual uma substring especificada foi substituída por outra substring um número especificado de vezes.

    Concordo que isso não é o que a maioria dos desenvolvedores presumiria, mas é consistente com o comportamento observado.

    Em vez disso, você pode escrever:

    Sub_string = Left(sub_string, ulnestfound - 1) & _
    Replace(sub_string, "<ul>", "", ulnestfound, 1,, vbTextCompare)

    Observe que a sintaxe é

    Replace(expression, find, replace, [ start, [ count, [ compare ]]])

    Você omitiu o countparâmetro. Ou escreva

    Sub_string = Replace(sub_string, "<ul>", "", ulnestfound, 1,, vbTextCompare)

    ou

    Sub_string = Replace(sub_string, "<ul>", "", ulnestfound, 1, Compare:=vbTextCompare)

    caso contrário vbTextCompare(=1) será considerado count.

    • 2

relate perguntas