Substituir Caracteres

Olá pessoal

Venho mais uma vez solicitar ajuda

Tenho uma Caixa de texto num formulário em que queria que o utilizador ao escrever fossem alterados alguns caracteres

Tendo em conta que o que o utilizador escrever será usado para dar nome a um ficheiro que será guardado numa pasta

Exemplo:

CaixaA: Orçamento 12/2019 15:33

Resultado por exemplo

CaixaA: Orçamento 12-2019 15_33


Em resumo, queria que não fossem usados caracteres que o Windows não deixe usar quando se cria um ficheiro

Desde já agradeço o tempo dispensado

Paulo Delgado

Paulo bom dia!!

Você pode utilizar a função "Replace", como funciona:

Código:

varReplace = Replace(("Meu aniversário é dia 12/11/1977"), "/", "-")
'Resultado: Meu aniversário é dia 12-11-1977


Obrigado pela ajuda

Existe alguma forma de colocar ao escrever, ou seja o utilizador vai escrevendo e sempre que pressiona / ele altera para - e sempre que coloca : ou . ele transforma em _

cumprimentos

Paulo Delgado

Estou sem tempo de tentar aqui, mas veja se os eventos do campo "Ao apertar tecla" ou "Ao modificar" resolvem seu problema.

Eu iria pelo caminho do "Ao apertar tecla" e faria a leitura do código da tecla apertada no campo e faria a substituição durante a digitação.

Bom dia Paulo,

O sistema pode permitir que o usuário informe estes caracteres exclusivos do Windows, mas na hora de salvar o registro, o sistema substitui os caracteres.
Você pode criar um botão "Salvar" e obrigar o usuário a clicar nele.
No evento "Ao Clicar" deste botão, você utiliza a função REPLACE, conforme nosso amigo Sidney, na mensagem 01.

Boa sorte.

Eu acho melhor a solução dada pelos nossos colegas Sidney e Alexandre, mais rápido para programar e mais rápido processamento pela máquina do usuário.
Porém, se quiser, consegui fazer um código para substituir os caracteres;

Considere um formulário com uma caixa de texto com o nome Texto0, no evento "Ao liberar tecla" desta caixa de texto, coloque:

Código:


Private Sub Texto0_KeyUp(KeyCode As Integer, Shift As Integer)
    'Este exemplo substitui todas as letras A por underline (_)
    If KeyCode = 65 Then
        strTextoDigitado = Left(Texto0.Text, Len(Texto0.Text) - 1) & "_"
        Texto0.Text = strTextoDigitado
        Texto0.SelStart = Len(strTextoDigitado)
    End If
End Sub

Sugestão: Deixa os dados gravados e apresentados normalmente, muda apenas quando for gravar o relatório.

Se você for mudar esses caracteres para o usuário vai estar quebrando o paradigma de UX/UI Design.

Se o problema é apenas para gravar na pasta do windows trate apenas isso. Não crie um problema pro usuário a fim de resolver outro.

Só uma sugestão.