ARQUIVO.TXT

USUARIO.EXCLUIDOS 30/06/2004 11:43:52
#31690 Resposta escolhida

A variavel Entrada deve ter o tamanho de 98

Tu pode fazer assim

Dim entrada as string * 98
ou usar Type

ou

fazer

open "c:\SmuES.Tct" for append as #1
Print #1,Dado
Close #1

USUARIO.EXCLUIDOS 30/06/2004 12:30:28
#31697

é pois os espaça será preenchido por caracter nulo

O melhor é fazer assim

Dado = text1.text
'Salva
open "C:\Arquivo.txt" for output as #1
print #1,dado
Close #1

'Le

Open "C:\Arquivo.txt" for input as #1
line input #1,dado
close #1
Text1.text = dado

USUARIO.EXCLUIDOS 30/06/2004 12:51:51
#31703

Pode fazer assim
'Em General
Type estrutura
Dado0 as string * 20
Dado1 as string * 20
Dado2 as string * 20
Dado3 as string * 20
Dado4 as string * 20
Dado5 as string * 20
Dado6 as string * 20
Dado7 as string * 20
Dado8 as string * 20
Dado9 as string * 20
Dado10 as string * 20
Dado11 as string * 20
End Type
Dim T as Estrutura

Sub SalvarEntrada()
Dim F as byte
t.dado0 = MSFlexGrid1.TextMatrix(0,MSFlexGrid1.Row)
t.dado1 = MSFlexGrid1.TextMatrix(1,MSFlexGrid1.Row)
t.dado2 = MSFlexGrid1.TextMatrix(2,MSFlexGrid1.Row)
t.dado3 = MSFlexGrid1.TextMatrix(3,MSFlexGrid1.Row)
t.dado4 = MSFlexGrid1.TextMatrix(4,MSFlexGrid1.Row)
t.dado5 = MSFlexGrid1.TextMatrix(5,MSFlexGrid1.Row)
t.dado6 = MSFlexGrid1.TextMatrix(6,MSFlexGrid1.Row)
t.dado7 = MSFlexGrid1.TextMatrix(7,MSFlexGrid1.Row)
t.dado8 = MSFlexGrid1.TextMatrix(8,MSFlexGrid1.Row)
F = freefile
Open "c:\SmuES.Txt" For Random As F Len = len(t)
Put #f,LinSaida,t
Close f
End Sub
Sub SalvarSaida
Dim f as byte
Open "c:\SmuES.Txt" For Random As F Len = len(t)
get #f,linSaida,t
close f
t.dado9 = MSFlexGrid1.TextMatrix(9,MSFlexGrid1.Row)
t.dado10 = MSFlexGrid1.TextMatrix(10,MSFlexGrid1.Row)
t.dado11 = MSFlexGrid1.TextMatrix(11,MSFlexGrid1.Row)
Open "c:\SmuES.Txt" For Random As F Len = len(t)
Put #f,LinSaida,t
Close f
End sub