TRUNCAR STRING - EXIBIR ... APOS N CARACTERES

MICHAELL 17/08/2012 16:49:42
#408117
ola pessoal....
Precisava criar uma funcao, no qual ao enviar uma string, me retornasse um vetor com as string separadas em um tamanho determinado... porem, sem cortar as palavras no meio.

EXEMPLO

na string..... = [ô]O rato roeu a roupa do rei de roma[ô]


A funcao teria que me retornar 15 caracteres ou menos.... em cada posicao do vetor

string(0) = [ô]O rato roeu a [ô]
string(1) = [ô]roupa do rei de[ô]
string(2) = [ô] roma[ô]

nao pode entrar mais de 15 caracteres em cada posicao.... e nao pode cortar as palavras no meio.

alguem sabe como me ajudar?
acredito que alguem ja tenha criado essa funcao... mas nao consegui criar de jeito algum.

agradecido.
LUIZCOMINO 17/08/2012 17:22:18
#408118 Resposta escolhida
Option Explicit
Dim Mtz() As String
Private Sub Form_Load()
Separar [Ô]O rato roeu a roupa do rei de roma[Ô]
MsgBox Mtz(1)
MsgBox Mtz(2)
MsgBox Mtz(3)
End Sub

Private Sub Separar(Conteudo As String)

Dim i, x As Integer
Dim Aux As String
Dim Qtde As Integer

For i = 1 To Len(Conteudo)
x = x + 1
Aux = Aux & Mid(Conteudo, i, 1)
If x = 15 Then
Qtde = Qtde + 1
ReDim Preserve Mtz(Qtde)
Mtz(Qtde) = Aux
Aux = [Ô][Ô]
x = 0
End If
Next

If Aux <> [Ô][Ô] Then
Qtde = Qtde + 1
ReDim Preserve Mtz(Qtde)
Mtz(Qtde) = Aux
End If

End Sub
LUIZCOMINO 21/08/2012 11:24:18
#408261
e ai amigo?
Tópico encerrado , respostas não são mais permitidas
Voltar