PEGAR QUEBRA DE LINHA DE UM CAMPO TEXT

WILSONJOSE 24/11/2014 16:36:34
#442732

Boa tarde, se entendi diretiro, faça um contador de linhas, abrir o arquivo após gerá-lo.

Dim ofs As New Scripting.FileSystemObject
Dim oTS As TextStream
Dim oTSB As TextStream
dim nLinha as integer

Set ofs = New Scripting.FileSystemObject

sTemp = App.Path & [Ô]\[Ô] & ofs.GetTempName

NomeArquivo = File1.FileName

sCaminho = Dir1 & [Ô]\[Ô] & NomeArquivo

If ofs.FileExists(sCaminho) = True Then
Set oTS = ofs.OpenTextFile(sCaminho, ForReading)
Set oTSB = ofs.OpenTextFile(sTemp, ForWriting, True)

nLinha = 1
While Not oTS.AtEndOfStream = True
sLinha = Empty
sLinha = oTS.ReadLine
if sLinha <> EMPTY then
nLinha = nLinha + 1
endif
oTSB.WriteLine sLinha
wend
oTSB.Close
oTS.Close
Set ofs = Nothing
Set oTS = Nothing
Set oTSB = Nothing
sLinha = Empty

MARCELO.TREZE 24/11/2014 16:49:41
#442733 Resposta escolhida

bom se eu entendi direito e você digitou em um textbox com a opção multiline = true, seria assim

Private Sub Text1_Change()
Dim Linhas() As String
Linhas = Split(Text1.Text, vbCrLf)
Label1.Caption = UBound(Linhas)
End Sub

coloquei um label para exibir a quantidade de linhas

11CLOSED 24/11/2014 17:56:51
#442737

Obriga do WILSONJOSE e Marcelo-Treze pela ajuda.
O que precisava era o que Marcelo posto
Deu certinho obrigado.