Enivaldo

Alguém sabe como ler uma sequencia (matriz) de strings através da função SPLIT() linha a linha e depois abreviar um texto onde contenha preposições. Esta sequencia de caracteres está contida em um arquivo de texto externo, ou seja, uma tabela externa onde estará contida as seguintes informações: 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) = ""

Bom dia, pessoal. Eu tenho um problema, gostaria de ler arquivo texto, contido em um diretorio específico, neste arquivo texto consta preposições (DE, DOS, DA...) e depois abrevia-las dentro da rotina. Vejam a função que verifico e gravo o novo nome com 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 ErrorHandler: MsgBox Err.Description End Function ========================== Private Function gravar_novo_nome(p_str_novo_nome() As String, p_int_num_nomes As Integer) As String On Error GoTo ErrorHandler Dim int_contador As Integer For int_contador = 0 To p_int_num_nomes If int_contador = 0 Then gravar_novo_nome = Trim((p_str_novo_nome(int_contador))) Else gravar_novo_nome = Trim(gravar_novo_nome) & " " & Trim((p_str_novo_nome(int_contador))) End If Next gravar_novo_nome = Trim(gravar_novo_nome) Exit Function ErrorHandler: MsgBox Err.Description End Function 0

Valeu.

Alguém sabe qual a reference em vb6 para este Objeto My.Computer.FileSystem (VBP) B)

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

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)

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?