Ler arquivo externo e abreviá-lo

[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) = ""

[MRMB]

Enivaldo,

Tentei criar um código que atenda a sua situação. Veja abaixo se o mesmo é válido para seu caso.

Option Explicit

Private Sub Command_Click()

  Dim i As Long
  
  Dim arrTexto1() As String
  Dim arrTexto2() As String
  Dim strAux As String
  
  arrTexto1 = Split("TESTE DE TESTE DA TESTE E TESTE DOS TESTE DAS TESTE NO TESTE NOS TESTE NA TESTE NAS")
  arrTexto2 = arrTexto1
  
  For i = LBound(arrTexto1) To UBound(arrTexto1)
    arrTexto2(i) = VerificaPreposicao(arrTexto1(i))
  Next i

  For i = LBound(arrTexto2) To UBound(arrTexto2)
    strAux = strAux + arrTexto2(i)
  Next i
  
  MsgBox strAux
  
End Sub

Private Function VerificaPreposicao(Texto As String) As String

  Select Case Texto
    Case "DE"
    Case "DA"
    Case "E"
    Case "DOS"
    Case "DAS"
    Case "NO"
    Case "NOS"
    Case "NA"
    Case "NAS"
      VerificaPreposicao = Empty ' Retorna o valor que achar melhor.
    Case Else
      VerificaPreposicao = Texto
  End Select

End Function