Пробдлема с cAppend

[AlexSVC]

Так выдает ошибку
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend,cUnicod)
FileClose (c1,)
End Sub

Так ок
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,,cUnicod)
FileClose (c1,)
End Sub

и так тоже нормально

Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend,)
FileClose (c1,)
End Sub

В чем прикол ? 6.5 - тоже самое....:sign0085:

 

[Sergey Kravchenko]

Так выдает ошибку
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend,cUnicod)
FileClose (c1,)
End Sub

Так ок
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,,cUnicod)
FileClose (c1,)
End Sub

и так тоже нормально

Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend,)
FileClose (c1,)
End Sub

В чем прикол ? 6.5 - тоже самое....:sign0085:

Syntax: FileOpen (Connection Name, File Name, cRead | cWrite | cRandom [,cAppend [,cASCII])

 

[Pavel]

Так выдает ошибку
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend,cUnicod)
FileClose (c1,)End Sub

Так ок
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,,cUnicod)
FileClose (c1,)
End Sub

и так тоже нормально

Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend,)
FileClose (c1,)
End Sub

В чем прикол ? 6.5 - тоже самое....:sign0085:

Не понимаю... зачем тебе эти незначащие запятые???

Sub Globals
'Declare the global variables here.
Dim c1
End Sub

Sub App_Start
Form1.Show
FileOpen (c1,"Data.txt",cWrite,,cUnicode)
FileWrite (c1,"20")
FileWrite (c1,"30 пишем в юникоде")
FileClose (c1)
End Sub
так работает...
а сAppend действительно возвращает ошибку...
она вообще возвращает ошибку, даже если просто прочитать ее как константу:
Msgbox(cAppend)

FileOpen (c1,"aa.txt",cWrite,cAppend,)

мдя... а эта строка работает...

в итоге...
если неоднократно запустить эту процедуру:
Sub App_Start
Form1.Show
FileOpen (c1,"aa.txt",cWrite,cAppend)
FileWrite (c1,"1 Просто запись")
FileWrite (c1,"2 file write")
FileWrite (c1,"3 Просто запись")
FileWrite (c1,"4 file write")
FileClose (c1)
End Sub

мы получаем файл аа.txt с записями:
1 Просто запись
2 file write
3 Просто запись
4 file write
1 Просто запись
2 file write
3 Просто запись
4 file write

cAppend не требует указания кодировки, а судя по всему открывает файл с уже существующей... я так думаю...

 

[AlexSVC]

Сделал так:
If FileExist (a&".txt") = False Then
FileOpen (c1,a&".txt",cWrite,,cunicod)
FileClose (c1)
End If
FileOpen (c1,a&".txt",cWrite,cAppend,)
Но осадок остался...
Не доделали этот момент.
Может кто знает, что то типа макросов в этом языке присутствует ?
Пы Сы: Запятуи быстро набиралися

 

[Pavel]

Может кто знает, что то типа макросов в этом языке присутствует ?
Пы Сы: Запятуи быстро набиралися

На сколько я понял, можно писать свои dllки... на visual studio.net
примеры стандартных библиотек написанных на си есть в версии десктопа... и... опять же на сколько я понял... в версии 6.5 есть возможность создания и подключения модулей (*.bas) к программе на момент ее написания и/или компиляции... чем не макросы?