سلام
چجوري ميشه تعداد ركوردهاي يك فايل تصادفي را بدست آورد.
مثل : RecordCount
:cool: :biggrin:
سلام
چجوري ميشه تعداد ركوردهاي يك فايل تصادفي را بدست آورد.
مثل : RecordCount
:cool: :biggrin:
منظورتون تعداد خطهای اونه ؟
سلام
من فكر ميكنم براي تعداد آنها ما بايد كل فايل پيمايش كنيم
و چون فايل به صورت پايل هست :happy: ميتوانيم اندازه كل فايل را به متوسط اندازه طول ركورد تقسيم كنيم
كه اين البته جواب تقريبي است
فرمول طول ركورد در فايل پايل = R=a'(A+V+2) andazeye record :blush:
file = nR=bB
نه
من فقط مي خوام بدونم چندتا ركورد توي اين فايل دارم.
شما نوع ركورد رو بگيد منظورم تعداد فيلد در يك ركورد و مهمتر از همه دقيقا نام فيلد و متوسط طول مقدار فيلد
مثلا بگيد name=8 va family =12
اينجا 12 و 8 يه عدد تقريبي متوسط خوب اسم صفت خاصه رو دقيقا بگيد چيه ؟ بعد اندازه كل فايل هم يادتون نره ؟
ببين منظور من اينكه ...
مثلاَ كنترل Data رو اگه ديده باشيد Data1.Recordset.Recordcount تعداد ركورد هاي كل بانك اطلاعاتي رو ميده.
يا مثلاَ توي پاسكال تابع Filesize مجموع كل تعداد ركوردهاي يك فايل نوع دار رو استخراج ميكرد.
حالا من مي خوام بدونم vb يك تابع نداره كه تعداد ركوردهاي فايل Random رو بده؟ :)
آقايون و خانوما تورو خدا كمك كنيد.
20 تا بازديد كننده ولي يكي پاسخ نمي ده .
من هنوز منتظرم.
کد:In module
Type EmployeeRecord
ID As Integer
Name As String * 20
Address As String * 30
Phone As Long
End Type
Global Record As EmployeeRecord
کد:Private Sub Command1_Click()
FileNum = FreeFile
Open PathName For Random As FileNum Len = Len(Record)
MsgBox Int(LOF(FileNum) / Len(Record))
Close #FileNum
End Sub
salam azizam barae inke bekhae befahmi chanta recored dari bayad az tabe eof estefaded koni va beziri yek moteghayer ono beshmareh ok
agha file tartibi tabti be tabe eof nadareنقل قول:
shoma as tabee FileLen estefade kon tile file ro behet mide bad bw tole recordet taghsim kon tedade recordat be dast miad
__________________________________________________ ___
X=FileLen(Adrese file)/ltole record