QUEBRA DE LINHA

USUARIO.EXCLUIDOS 16/01/2005 08:03:53
#61164
ola como que eu faço para ler um arquivo txt em quebra de linhas
ex:

são paulo
curitiba
rio de janeiro
etc....

gostaria de ler nesse tipo de linha
se tiver alguem que possa me ajudar ficaria muito grato.............
MAICONCARDOSO 16/01/2005 09:01:53
#61171
Você quer ler ele e passar para um textbox?
WEBMASTER 16/01/2005 09:29:26
#61182
você já tem um definição de quais as palavras vai estar no txt ?
USUARIO.EXCLUIDOS 16/01/2005 09:35:47
#61185
gostaria de ler e salvar olhe a baixo como ele esta

// GENERAL
version = 24

// DISPLAY
windowed = 0
hw3d_deviceno = 0
hw3d_name = "MSI MS-StarForce GeForce FX 5200"
hw3d_guid = "D7B71E3E-4062-11CF-67666AB300C2CB35"
hw3d_res640x480 = 1
hw3d_res800x600 = 1
hw3d_res1024x768 = 1
hw3d_res1280x720 = 1
hw3d_res1280x768 = 1
hw3d_res1280x960 = 1
hw3d_res1280x1024 = 1
hw3d_res1600x1200 = 1
hw3d_res1920x1080 = 0
hw3d_res1920x1440 = 0
hw3d_res2048x1536 = 0
game_res = 2
gamma = 0.8
terrain_polydetail = 0
terrain_texdetail = 1
object_polydetail = 0
object_texdetail = 1
display_16x9 = 0
water_quality = 2
shadow_quality = 1
particle_density = 0
antialias_mode = 0
texfilter_level = 0
fbeffects_level = 1
shader_usage_level = 1
texcompression_level = 1
lock_framerate = 1
force_vsync = 0
reduce_mouselag = 1
enable_keyboardtips = 0
enable_gameplaytips = 0

é isso que eu queria
ex: ler linha 3 e salvar
WEBMASTER 16/01/2005 09:40:33
#61187
por que nao usa arquivos INI ?
SHADOW.BOY 16/01/2005 10:20:48
#61193
Olá Duvanel.

Veja se isso te ajuda:
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=42414&varSubPagina=1&varFiltro=filtro

Boa sorte,
USUARIO.EXCLUIDOS 16/01/2005 14:20:54
#61238
Faça o Seguinte

Se for Gravar Aqruivos de Lista do tipo esse que vc informou

Open "C:    este.dat" For Append as #1 'Isso vai sempre jogar o texto profim da linha

Print #1,Texto
Close#1

Agora Leitura

Open "C:    este.dat" for Input as #1

Do until Eof(1)

List.additem input#1,Dados 'Supondo que vc tenha um listbox

loop


close#1


Espero ter Ajudado

Visite www.DreamSoftware.cjb.net
THIAGO.CESAR 16/01/2005 17:51:18
#61266
Inclua uma referencia ao Microsoft Scripting Runtime no seu projeto e use a rotina abaixo:
Exemplo: Abrir("C:\Texte.text",text1)
Sub Abrir(NomeArquivo As String, CaixaTexto As TextBox)
On Error GoTo Erro
Dim Texto As String, Fsys As New FileSystemObject
Set TStream = Fsys.OpenTextFile(NomeArquivo, ForReading)
CaixaTexto.Text = TStream.ReadAll
Exit Sub
Erro:
MsgBox Err.Description
End Sub
THIAGO.CESAR 16/01/2005 18:02:47
#61267
Aí DUVANEL, acho que tá do jeito que você quer:
Function LerLinha(Arquivo As String, Linha As Integer) As String
On Error GoTo Erro
Dim Texto As String, Fsys As New FileSystemObject, TStream As TextStream
Set TStream = Fsys.OpenTextFile(Arquivo, ForReading)
For i = 1 To Linha - 1
    TStream.SkipLine
Next
LerLinha = TStream.ReadLine
Exit Function
Erro:
MsgBox Err.Description
End Function


Não se esqueça de incluir a referencia ao Microsoft Scripting Runtime no seu projeto. (Project/References...)
Tópico encerrado , respostas não são mais permitidas
Voltar