خواندن و نوشتن در فایل TEXT

[m_zi]

سلام
میشه راهنماییم کنید که چه جوری میتونم توی یک فایل از نوع Text بنویسم و هم بتونم از آن بخونم .

ممنون

[Mbt925]

راهتترین روشش رو می گم
انشاالله بعدا که یکم مسلط تر شدین بقیه روشها رو هم راحت یاد می گیرین.

هر فایلی که باز میشه ، باید بسته بشه .
به هر تعدادی که توی فایل می نویسید ، به همون تعداد بخونید ،
مثلا :

Write #1, a,b,c
Input#1,a,b,c

اینم یه مثال : دانلـــــود (http://mbt925.persiangig.com/Learn_Sample/Read%20%26%20Write%20-%20Sample.rar)




نوشتن


Dim FreeNum as long

FreeNum=Freefile()

Open "Masire File" for output as #FreeNum
Write #FreeNum,Ettelate morede nazar
Close #FreeNum

اطلاعات که می تواند هر چیزی باشد در فایل نوشته می شود.

=======================

خواندن

Dim FreeNum as long
Dim Temp as string

Open "Masire File" for input as #FreeNum
Input #FreeNum,Temp
Close #FreeNum

اطلاعات از فایل خوانده میشود و در متغیر Temp قرار می گیرد.

[pswin.pooya]

سلام
یه کتاب برای یادگیری کار با انواع فایلها:
http://ps-ware.net/index.php?option=com_content&task=view&id=56&Itemid=47

کار با فایلهای متنی یونی کد:
http://ps-ware.net/index.php?option=com_content&task=view&id=52&Itemid=51

[vb341]

از این نمونه هم میتونی استفاده کنی


Dim nFreeFile As Long
Dim sCode As String * 25

If fso.FolderExists("C:\E_Data\AberBank") = False Then
fso.CreateFolder "C:\E_Data\AberBank"
End If

nFreeFile = FreeFile
Open "C:\E_Data\AberBank\netpay.txt" For Output As nFreeFile
'
With Adodc3.Recordset
On Error Resume Next
.MoveFirst
Do Until .EOF
sCode = Format$(.Fields("acc_num"), "0000000000000") & _
Format$(.Fields("SumOfpardakhti"), "0000000000") & "+1"
Print #nFreeFile, sCode
.MoveNext
Loop
.MoveFirst
End With
'
Close nFreeFile

fso.CopyFile "C:\E_Data\AberBank\netpay.txt", "a:\", True

[mohsenrahx]

'برای نوشتن
b="Ali"
Open "c:\picture.dat" For Output As #1
Print #1, B
Close

'برای خواندن
Open "c:\\picture.dat" For Input As #1
Input #1, A
Print A
Close:چشمک:

[hsn1362]

سلام

من یک فایل txt دارم که اسم و تلفن دوستان به این شکل در آن است :

name1
90809809

name2
234242423432

name3
43123213123

.
.
.

کدی دارید که این اسم و تلفن ها را بخونه و توی دیتا بیس access یا sql بریزه

متشکر