Limitar tamanho de linha

[rafaelcpcunha]

Olá

Como posso limitar o tamanho das linhas escritas em um arquivo texto.

Assim, tenho um textbox multiline com scroll vertical, seus caracteres são salvos(escritos) em um arquivo.

O problema: quando os dados são salvos, eles ficam em uma única linha. Quero tipo limitar o arquivo gerado que tenha linhas de 40 caracteres. Sem a nacessidade do usuário dar enter durante a edição do texto na textbox.

Desde já agradeço aos amigos.

[MRMB]

rafaelcpcunha,

O código abaixo valida linhas/caracteres. Altera o mesmo para quando for 40 caracteres adicionar a quebra de linha (Enter) no evento KeyPress do componente. Penso que irá ficar fino.

Option Explicit

Private totalLines As Long

Private Sub Command_Click()
  
  ValidaLinhasCaracteres
  
End Sub

Private Function ValidaLinhasCaracteres() As Integer
  
  Const QtdeMaxCarac = 10 ' Quantidade máxima de caracteres por linha.
  Dim totalLines() As String ' Cria um array de tipo string
  Dim i As Long ' Para controle do loop.
  
  ' Coloca no array criado a lista de linhas existentes na TextBox
  totalLines = Split(txtTeste.Text, vbCrLf)
  
  ' Valida quantidade Caracteres por linha.
  For i = LBound(totalLines) To UBound(totalLines)
    If Len(totalLines(i)) >= QtdeMaxCarac Then
      MsgBox "Número de caracteres na linha " & CStr(i + 1) & " superior a " & CStr(QtdeMaxCarac)
    End If
  Next i
    
  ' Retorna o número de linhas.
  ValidaLinhasCaracteres = UBound(totalLines)
  
End Function