Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Работа с текстовыми файлами

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
maestro_



Joined: 29 Jan 2003
Posts: 95



PostPosted: 24 Nov 2005 12:58    Post subject: Работа с текстовыми файлами Reply with quote

Здраствуйте!

Большая просьба, рассказать о работе в Hfileeval с текстовыми файлами.
Например, как записать текстовую переменную в файл, прочитать текстовый файл и т.д.
Заранее большое спасибо!
Back to top
View user's profile Send private message
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель

PostPosted: 24 Nov 2005 13:38    Post subject: Reply with quote

А в каких целях?
для хранения переменных предназначен другой способ (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
View user's profile Send private message Send e-mail
maestro_



Joined: 29 Jan 2003
Posts: 95



PostPosted: 24 Nov 2005 15:09    Post subject: Reply with quote

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
View user's profile Send private message
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель

PostPosted: 24 Nov 2005 15:26    Post subject: Reply with quote

Quote:
требуется сбросить некоторую информацию в текстовый файл


Code:
 save all like имя переменной to mytextvarfile


Quote:
а также иметь возможность прочитать и откоректировать данную информацию


Code:
restore from mytextvarfile additive

В случае текстового файла придется анализировать содержимое.
Back to top
View user's profile Send private message Send e-mail
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь

PostPosted: 24 Nov 2005 17:03    Post subject: Reply with quote

Добрый день.

Счас это пишется как-то так: (без гарантии)

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
View user's profile Send private message Send e-mail
Олег Смирнов



Joined: 06 Sep 2004
Posts: 821
Location: Олег Смирнов
Occupation: Раут (поганист-сисадмин)
Interests: Новосибирск

PostPosted: 24 Nov 2005 17:18    Post subject: Reply with quote

itman wrote:

Code:
 save all like имя переменной to mytextvarfile

Code:
restore from mytextvarfile additive


Так-то поймёт только xBase (а то и вообще только харбор), а текст могут многие другие системы понять... (и человек глазами с монитора... )
P.S. На сайте новосибирского компьютеропродАвца "Кардинал" во времена "войны браузеров" висела прелюбопытная табличка: "Best viewed with Open Eyes"
_________________
С уважением, Олег Р. Смирн
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru