Пробдлема с cAppend

Discussion in 'Russian Forum' started by AlexSVC, Nov 14, 2008.

  1. AlexSVC

    AlexSVC Member

    Так выдает ошибку
    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:
     
  2. Sergey Kravchenko

    Sergey Kravchenko Active Member Licensed User

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

    Pavel Member

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

    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)
    мдя... а эта строка работает...

    в итоге...
    если неоднократно запустить эту процедуру:
    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 не требует указания кодировки, а судя по всему открывает файл с уже существующей... я так думаю...
     
    Last edited: Nov 14, 2008
  4. AlexSVC

    AlexSVC Member

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

    Pavel Member

    На сколько я понял, можно писать свои dllки... на visual studio.net
    примеры стандартных библиотек написанных на си есть в версии десктопа... и... опять же на сколько я понял... в версии 6.5 есть возможность создания и подключения модулей (*.bas) к программе на момент ее написания и/или компиляции... чем не макросы? :)
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice