شئ OpenAsTextStream برای خواندن فایل متنی

باز کردن فایل مشخص شده و بازگشت یک شئ TextStream که می تواند برای خواندن از فایل ، نوشتن روی فایل یا اضافه کردن به فایل استفاده شود.

نوشتاری : 

object.OpenAsTextStream ([ iomode, [ format ]])

The OpenAsTextStream method syntax has these parts:

Object : بردن نام شئ ضروریست . همیشه نام شئ File

iomode : اختیاریست . حالت Input / Output را مشخص میکند و می تواند یکی از ۳ ثابت ForReading ، ForWriting و ForAppending باشد.

format : اختیاری ، برای نشان دادن فرمت فایل بازشده استفاده می شود. اگر خالی رها شود ، فایل در حالت ASCII باز میشود ... مثلا برای باز کردن به حالت پیش فرض عدد ثابت ۲- 

Constant	Value	Description
ForReading	1	Open a file for reading only. You can't write to this file.
ForWriting	2	Open a file for writing. If a file with the same name exists, its previous contents are overwritten.
ForAppending	8	Open a file and write to the end of the file.

Constant	Value	Description
TristateUseDefault	-2	Opens the file by using the system default.
TristateTrue	-1	Opens the file as Unicode.
TristateFalse	0	Opens the file as ASCII.

توضیحات : 

متد OpenAsTextStream مثل همان متد OpenTextFile از FileSystemObject عمل می کند . بعلاوه متد OpenAsTextStream می تواند برای نوشتن به فایل استفاده شود.

Read	Reads a specified number of characters from a TextStream file and returns the result.
ReadAll	Reads an entire TextStream file and returns the result.
ReadLine	Reads one line from a TextStream file and returns the result.
Skip	Skips a specified number of characters when reading a TextStream file.

For large files, using the ReadAll method wastes memory resources. Other techniques should be used to input a file, such as reading a file line-by-line.

' const ForReading=1

Set fso =CreateObject("Scripting.FileSystemObject")

Set fileObject =fs.GetFile("test1.txt")

Set  myfile=fileObject.OpenAsTextStream(ForReading, TristateUseDefault)

Magbox myfile.ReadAll

myfile.Close

strFile_Path = "Your file Path"
Open strFile_Path For Append As #1
Write #1, “You can write your required text here”
Close # 1

خواندن یک فایل باینری با عبارت Open در اکسل

Sub Temp()
Dim intFileNum%, bytTemp As Byte, intCellRow%
intFileNum = FreeFile
intCellRow = 0
Open "C:\temp.bin" For Binary Access Read As intFileNum
Do While Not EOF(intFileNum)
intCellRow = intCellRow + 1
Get intFileNum, , bytTemp 

Cells(intCellRow, 1) = bytTemp

Loop 

Close intFileNum 

End Sub

نوشتاری 

Open pathname For mode [ Access access ] [ lock ] As [ # ] filenumber [ Len = reclength ]

mode: ( اجباری )

Append,Binary,Input,OutPut Or Random

Default : Random

access : ( اختیاری )

Read, Write, or Read Write.

filenumber: ( اجباری )

in range 1 to 511

use FreeFile function : برای بدست آورن شماره فایل موجود بعدی

در حالت های Binary ، Input و Random یک فایل را می توان با استفاده از شماره فایل متفاوت بدون بستن باز نمود. در حالت های Append و OutPut می بایست قبل از باز کردن آن با شماره فایل متفاوت ، آنرا بست.

عبارت یا دستور Get در Vba : ( خواندن داخل یک متغیر )

Reads data from an open disk file into a Variable.

Get [ # ] filenumber, [ recnumber ], varname

عبارت یا دستور Put در Vba : ( نوشتن )

Writes data from a Variable to a disk file.

Put [ # ] filenumber, [ recnumber ], varname

عبارت یا دستور Input در Vba : ( خواندن داده )

Reads data from an open sequential file and assigns the data to Variables

Input #filenumber, varlist

عبارت یا دستور Print در Vba : ( نوشتن در فایل )

Writes display-formatted data to a sequential file.

Print #filenumber, [ outputlist ]

OpenPort

Open "COM4:2400,N,8,1" For Binary Access Read Write As #1
cmnd$ = cmnd$ + Chr(13)
Put #1, , cmnd$
answer = ""
char = Input(1, #1)
While (char <> Chr(13))
If (char > Chr(31)) Then
answer = answer + char
End If
char = Input(1, #1) 'گرفتن کاراکتربعدی
Wend
Close #1

دهه سوم اردیبهشت ۱۴۰۲ :

فلاحتی امام جمعه رشت با انتقاد از حجاب برخی حاضران در مراسم گفت: سایت ها فردا می زنند نماینده ولی فقیه در جلسه ای شرکت کرد که حجاب را رعایت نکردند. من از همه زنان و دخترانی که این جا حجاب را رعایت نکرده‌اند، بیزارم...

Open StateMent

Maybe Comm=FreeFile Used

Open "COMFILE" For Binary Access Read Write As #1 

receiveBuff="@@@@@@@@@@"

Sleep 100

Debug.Print "Looking For incoming Msg"

On Error Resume Next

Do While True

receive = receiveBuff

Input #1, receive

If receive= receiveBuff Then Exit Do 

Debug.Print receive

Loop 

On Error GoTo 0

Debug.Print "Looking again...."

On Error Resume Next 

Do While True 

receive= receiveBuff

Input #1, receive

If receive= receiveBuff Then Exit Do 

Debug.Print receive

Loop

On Error GoTo 0

Debug.Print "Finished...Close ComFile"

 Close #1