Makale OPEN

Murat OSMA · 1 Haz 2018

OPEN( PathName For Mode [Access] [Lock] As [#] FileNumber [Len = RecLength] )

Bir metin dosyası (TXT)veya CSV dosyası açar.

PathName	Klasör ve hatta sürücü içerebilen dosya adı.
Mode	Erişim tipi: Input Output Append Binary Random
Access	İşlem tipini belirten anahtar sözcük: Read Write Read Write
Lock	Kilit türünü belirten anahtar sözcük: Shared Lock Read Lock Write Lock Read Write
FileNumber	Dosya sayısı (Integer).
RecLength	Rastgele erişim için bir kaydın uzunluğu ve sıralı için arabellek boyutu.

Açıklamalar

Dosya zaten açıksa, bir hata meydana gelecektir.
Bir metin dosyasını kapatmak için CLOSE deyimini kullanabilirsiniz.
Ekran formatlı verileri sıralı olarak bir dosyaya yazmak için PRINT deyimini kullanabilirsiniz .
Ardışık olarak bir dosyaya veri yazmak için WRITE deyimini kullanabilirsiniz.

PHP:

Sub ExcelTurkey()
    say = 5
    Open "C:\Temp\dosya.txt" For Random Shared As #1 Len = say
    Close #1
  
    Open "C:\Temp\dosya.txt" For Binary As #1
    Open "C:\Temp\dosya.txt" For Output As #1
  
    Close #1
  
    Open "C:\Temp\dosya.txt" For Output As #1
        Print #1, "16"
        Print #1, "'500','200'"
        Print #1, True
        Print #1, #1/5/2020#
        Print #1, CVErr(2018)
        Print #1, "A,B,C"
        Write #1, "D,E,F"
        Write #1,  'boş bir satır ekler
    Close #1
  
    Open "C:\Temp\dosya.txt" For Input As #1
        Debug.Print LOF(1)
        Do Until EOF(1)
            Dim satir As String
            Line Input #1, satir
            Debug.Print satir
          
            Dim VarName1, VarName2 As Variant
            Input #1, VarName1, VarName2
            Debug.Print VarName1, VarName2
        Loop
    Close #1
End Sub

Makale OPEN

Bu Makale Yararlı Oldu mu?

Evet

Hayır

Daha fazla seçenek

Murat OSMA