Aplicando dicionário de abreviaturas num textbox

[lucasmorais]

Caros,
sou novo aqui no fórum mas há algum tempo acompanho o blog do Tomás.
Estou customizando o Modelo de Cadastro e estou precisando aplicar um dicionário de abreviação em um TextBox.

Seguinte:
Eu tenho um cadastro de materiais com duas descrições: "Texto breve" e "Descrição de compra". Eu preciso colocar as informações da descrição de compra no texto breve, porém de forma abreviada, p. ex.:

Descrição de compra
CANETA
TIPO: ESFEROGRÁFICA
COR: AZUL
CORPO: EMBORRACHADO
EMBALAGEM: 200 UNIDADES *
REFERENCIA: 1234
MARCA: BIC

Texto breve
CANETA ESFER AZ EMBORR 1234 BIC

* Algumas informações não precisam estar no texto breve, uma validação com checkbox resolverá.

As informações estão distribuídas em textboxes no form de cadastro, sendo a primeira coluna de textboxes com as características (texto antes dos dois pontos) e a segunda com os valores (texto depois dos dois pontos).

Eu tenho um dicionário com as abreviações, sendo a coluna A com o texto inteiro (os termos) e a coluna B com as abreviações.

A pergunta: como faço para aplicar as abreviações dos textboxes da descrição de compra no textbox do texto breve passando pelo dicionário de abraviaturas?

Desde já agradeço a ajuda!

Lucas Morais

[lucasmorais]

Achei algo que pode nortear.

Código: Selecionar todos

Sub ReplaceTEMP()

  'Replaces the text "TEMP" in Col A with whatever is in the
  'corresponding row in column B
 
  Dim iRow    As Long
  iRow = 2    'start in row 2 assuming row 1 contains headers
 
  Do Until IsEmpty(Cells(iRow, "A"))  'loop until empty cell in col A
     Cells(iRow, "A") = Replace(Cells(iRow, "A"), "TEMP", Cells(iRow, "B"))
     iRow = iRow + 1
  Loop
 
End Sub

Lucas Morais

Anúncios