Abreviar nome

[Enivaldo]

Bom dia.

Possuo um formulário, onde, consta dois campos, o primeiro eu digito um texto completo com todas as preposições e o segundo ao clicar no botão ABREVIAR, aparece este mesmo texto abreviado em um campo abaixo.

Eu hoje crio vetores dentro da rotina (veja abaixo):

>>>>

>>>> preposicaoX(0) = "DO"

>>>> preposicaoX(1) = "DE"

>>>> preposicaoX(2) = "DA"

>>>> preposicaoX(3) = "E"

>>>> preposicaoX(4) = "DOS"

>>>> preposicaoX(5) = "DAS"

>>>> preposicaoX(6) = "NO"

>>>> preposicaoX(7) = "NOS"

>>>> preposicaoX(8) = "NA"

>>>> preposicaoX(9) = "NAS"

preposicaoY(0) = ""

preposicaoY(1) = ""

preposicaoY(2) = ""

preposicaoY(3) = ""

preposicaoY(4) = ""

preposicaoY(5) = ""

preposicaoY(6) = ""

preposicaoY(7) = ""

preposicaoY(8) = ""

preposicaoY(9) = ""

>>>>

>>>> onde, através de métodos UBOUND() verifico estas preposições.

>>>>

>>>> Private Function verificar_preposicao(p_str_nome As String,

>>>> p_str_tipo_pessoa As String) As Boolean

>>>> On Error GoTo ErrorHandler

>>>> Dim int_contador As Integer

>>>> verificar_preposicao = False

>>>> For int_contador = 0 To UBound(preposicaoX)

>>>> If UCase(p_str_nome) = UCase(preposicaoX(int_contador)) Then

>>>> verificar_preposicao = True

>>>> If p_str_tipo_pessoa = "F" Then

>>>> p_str_nome = UCase(preposicaoX(int_contador))

>>>> Else

>>>> p_str_nome = ""

>>>> End If

>>>> Exit Function

>>>> End If

>>>> Next

>>>> Exit Function

>>>>

>>>> ** TEM COMO EU LER ESTAS PREPOSIÇÕES ATRAVÉS DE UM ARQUIVO EXTERNO, TIPO .TXT OU COISA PARECIDA?

[Flechaus]

Rapaz.. que coisa doida..

Por que você quer abreviar preposições?

[Enivaldo]

Fleachaus,

Você sabe como são os usuários e as suas criatividades.

Ma, nós temos um formulário onde o usuário seta PESSOA FÍSICA e PESSOA JURÍDICA, em pessoa juridica, deve conter apenas 40 digitos para os diversos Tipos de pessoa juridica, entedeu?

ex.: SINDICATO DE INDÚSTRIA DE FIAÇÃO E TECELAGEM NO ESTADO DA BAHIA (contém mais de 40 digitos)

[kuroi]

você quer q essa parte seja lida de um txt??

>>>> preposicaoX(0) = "DO"
>>>> preposicaoX(1) = "DE"
>>>> preposicaoX(2) = "DA"
>>>> preposicaoX(3) = "E"
>>>> preposicaoX(4) = "DOS"
>>>> preposicaoX(5) = "DAS"
>>>> preposicaoX(6) = "NO"
>>>> preposicaoX(7) = "NOS"
>>>> preposicaoX(8) = "NA"
>>>> preposicaoX(9) = "NAS"[/code]
é só ler o txt e incluir no array. o melhor é q esteja num formato tipo assim "DE|DA|E", numa unica linha, assim você só lia essa linha e usava um Split() q ele já te dava um array com todas as preposicoes.
um tutorial de leitura de arquivos em vb6: http://www.dreamincode.net/forums/topic/29...quential-files/

[Enivaldo]

Sim Flechaus, na função verificar(), anexada...

Bom dia.

Private Function verificar_preposicao(p_str_nome As String,

>>>>> p_str_tipo_pessoa As String) As Boolean

>>>>> On Error GoTo ErrorHandler

>>>>> Dim int_contador As Integer

>>>>> verificar_preposicao = False

>>>>> For int_contador = 0 To UBound(preposicaoX)

>>>>> If UCase(p_str_nome) = UCase(preposicaoX(int_contador)) Then

>>>>> verificar_preposicao = True

>>>>> If p_str_tipo_pessoa = "F" Then

>>>>> p_str_nome = UCase(preposicaoX(int_contador))

>>>>> Else

>>>>> p_str_nome = ""

>>>>> End If

>>>>> Exit Function

>>>>> End If

>>>>> Next

>>>>> Exit Function