| View previous topic :: View next topic |
| Author |
Message |
maestro_
Joined: 29 Jan 2003
Posts: 95
|
 Posted: 24 Nov 2005 12:58 Post subject: Работа с текстовыми файлами |
 |
|
Здраствуйте!
Большая просьба, рассказать о работе в Hfileeval с текстовыми файлами.
Например, как записать текстовую переменную в файл, прочитать текстовый файл и т.д.
Заранее большое спасибо! |
|
| Back to top |
|
 |
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 24 Nov 2005 13:38 Post subject: |
|
|
А в каких целях?
для хранения переменных предназначен другой способ (save/restore)
Для обычной записи
| Code: | // Вывод в файл
Function ToRep(S)
Private I
If S=Nil
S:=''
EndIf
If ValType(S)='N'
I:=1
Do While I<=S
FWrite(RepFile,Chr(13)+Chr(10))
I:=I+1
EndDo
Else
FWrite(RepFile,S+Chr(13)+Chr(10))
EndIf
Return
//вывод строки
FWrite(RepFile,Stroka+Chr(13)+Chr(10))
// Вывод одной пустой стоки
//ToRep()
// Вывод 2 пустых строк
//ToRep(2)
|
|
|
| Back to top |
|
|
maestro_
Joined: 29 Jan 2003
Posts: 95
|
| Posted: 24 Nov 2005 15:09 Post subject: |
|
|
| itman wrote: | | А в каких целях? |
требуется сбросить некоторую информацию в текстовый файл, а также иметь возможность прочитать и откоректировать данную информацию
| itman wrote: |
| Code: | // Вывод в файл
Function ToRep(S)
Private I
If S=Nil
S:=''
EndIf
If ValType(S)='N'
I:=1
Do While I<=S
FWrite(RepFile,Chr(13)+Chr(10))
I:=I+1
EndDo
Else
FWrite(RepFile,S+Chr(13)+Chr(10))
EndIf
Return
//вывод строки
FWrite(RepFile,Stroka+Chr(13)+Chr(10))
// Вывод одной пустой стоки
//ToRep()
// Вывод 2 пустых строк
//ToRep(2)
|
|
Спаси |
|
| Back to top |
|
|
itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
| Posted: 24 Nov 2005 15:26 Post subject: |
|
|
| Quote: | | требуется сбросить некоторую информацию в текстовый файл |
| Code: | | save all like имя переменной to mytextvarfile |
| Quote: | | а также иметь возможность прочитать и откоректировать данную информацию |
| Code: | | restore from mytextvarfile additive |
В случае текстового файла придется анализировать содержимое. |
|
| Back to top |
|
|
Behemoth
Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
|
| Posted: 24 Nov 2005 17:03 Post subject: |
|
|
Добрый день.
Счас это пишется как-то так: (без гарантии)
Function ToRep(S1)
private s:=if(s1=Nil,'',s1)
If(Type('S')='N',aeval(array(s),{|| FWrite(RepFile,Chr(13)+Chr(10))}),)
If(Type('S')='C',FWrite(RepFile,strtran(S,' ',chr(255))+Chr(13)+Chr(10)),)
Return
main()
private repname:=tempfile(globaltmppath,'txt')
private repfile:=fcreate(repname)
//вывод строки
ToRep(Stroka)
// Вывод одной пустой стоки
//ToRep()
// Вывод 2 пустых строк
//ToRep(2)
fclose(repfile)
view(repname)
return
_________________
С уважением, Новиков Алексей. |
|
| Back to top |
|
|
Олег Смирнов
Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск
|
| Posted: 24 Nov 2005 17:18 Post subject: |
|
|
| itman wrote: |
| Code: | | save all like имя переменной to mytextvarfile |
| Code: | | restore from mytextvarfile additive |
|
Так-то поймёт только xBase (а то и вообще только харбор), а текст могут многие другие системы понять... (и человек глазами с монитора...  )
P.S. На сайте новосибирского компьютеропродАвца "Кардинал" во времена "войны браузеров" висела прелюбопытная табличка: "Best viewed with Open Eyes" 
_________________
С уважением, Олег Р. Смирн |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
