How to open multiple textfile

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site
Reply
1 2 3

•
•
Join Date: Sep 2006
Posts: 54
Reputation: royaloba is an unknown quantity at this point 
Solved Threads: 1
royaloba royaloba is offline Offline
Junior Poster in Training

Re: How to open multiple textfile

 
0
  #11
Nov 27th, 2006
Veena,
thanks for you quick response, your given code is working well in access, but when i use in mysql it's give a error "FUCNTION CDate does not exist" do have any idea about it..? thanks again..
Reply With Quote Quick reply to this message  
•
•
Join Date: Nov 2006
Posts: 848
Reputation: QVeen72 is on a distinguished road 
Solved Threads: 120
QVeen72's Avatar
QVeen72 QVeen72 is offline Offline
Practically a Posting Shark

Re: How to open multiple textfile

 
0
  #12
Nov 28th, 2006
Hi,

Yes, I had Given that For Access.
For MySQL use this function.

Update tblAttandence Set TotalHours = SubTime(TimeOut, TimeIn)

and give where condition as usual.

Regards
Veena
Reply With Quote Quick reply to this message  
•
•
Join Date: Sep 2006
Posts: 54
Reputation: royaloba is an unknown quantity at this point 
Solved Threads: 1
royaloba royaloba is offline Offline
Junior Poster in Training

Re: How to open multiple textfile

 
0
  #13
Nov 29th, 2006
Veena,
Hello. again it's working very nice..thanks..
Reply With Quote Quick reply to this message  
•
•
Join Date: Nov 2006
Posts: 848
Reputation: QVeen72 is on a distinguished road 
Solved Threads: 120
QVeen72's Avatar
QVeen72 QVeen72 is offline Offline
Practically a Posting Shark

Re: How to open multiple textfile

 
0
  #14
Nov 29th, 2006
Hi,

"You Ask Veena And It Shud Work, There is no question of not working"

Any Problems Regarding VB/Oracle/SQL/Crystal Reports/Queries
u r free to ask

Regards
Veena
Reply With Quote Quick reply to this message  
•
•
Join Date: Sep 2006
Posts: 54
Reputation: royaloba is an unknown quantity at this point 
Solved Threads: 1
royaloba royaloba is offline Offline
Junior Poster in Training

Re: How to open multiple textfile

 
0
  #15
Dec 1st, 2006
Veena,
Hello
this is for my other project which i have to donwload all the attendance from the biometric device, then saved it to "C:\TNA\" .txt
as text files, this is sample the code

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
  1. Dim dwEnrollNumber As Long
  2.     Dim dwVerifyMode As Long
  3.     Dim dwInOutMode As Long
  4.     Dim timeStr As String
  5.     Dim iDate As Date
  6.     Dim i As Long
  7.     Dim TempLine As String
  8.     iDate = Date
  9.  
  10.  
  11.     dwEnrollNumber = 1
  12.     CZKEM1.ReadAllGLogData 1
  13.         i = i = 1
  14.     Open "C:\TNA\" & Format(iDate, "mmddyyyy") & ".txt" For Output As #1
  15.     While CZKEM1.GetGeneralLogDataStr(1, dwEnrollNumber, dwVerifyMode, dwInOutMode, timeStr)
  16.         'i = i + 1
  17.  
  18.         If dwInOutMode = 0 Then
  19.             iInOut = "Event:Access,"
  20.             Else
  21.             iInOut = "Event:Access,"
  22.         End If
  23.  
  24.         Print #1, Format(timeStr, "YYYY/MM/DD HH:MM:SS,") & " " & iInOut & " " & "Door:entry," & " " & "Card No.:" & Format(dwEnrollNumber, "00000") & ","
  25.  
  26.             i = i + 1
  27.     Wend
  28.     MsgBox "Attendance successfully downloaded"
  29.     Close 1

THE SAMPLE DOWNLOADED FILE, file name is "12022006" .txt
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
  1. 2006/11/29 15:37:39, Event:Access, Door:entry, Card No.:00001,
  2. 2006/11/29 15:37:42, Event:Access, Door:entry, Card No.:00012,
  3. 2006/11/29 15:38:42, Event:Access, Door:entry, Card No.:00001,
  4. 2006/11/29 15:38:45, Event:Access, Door:entry, Card No.:00012,
  5. 2006/11/29 15:38:57, Event:Access, Door:entry, Card No.:00123,
  6. 2006/11/29 15:39:00, Event:Access, Door:entry, Card No.:01234,
  7. 2006/11/29 15:39:03, Event:Access, Door:entry, Card No.:12345,
  8. 2006/11/29 15:39:05, Event:Access, Door:entry, Card No.:00001,
  9. 2006/11/29 15:39:11, Event:Access, Door:entry, Card No.:00012,
  10. 2006/11/29 15:39:17, Event:Access, Door:entry, Card No.:00123,
  11. 2006/11/29 15:52:06, Event:Access, Door:entry, Card No.:00001,
  12. 2006/11/29 15:54:08, Event:Access, Door:entry, Card No.:00012,
  13. 2006/11/29 15:54:31, Event:Access, Door:entry, Card No.:33333,
  14. 2006/11/29 15:55:09, Event:Access, Door:entry, Card No.:33333,
  15. 2006/11/29 15:55:29, Event:Access, Door:entry, Card No.:00012,
  16. 2006/11/29 15:55:45, Event:Access, Door:entry, Card No.:00012,
  17. 2006/11/29 15:55:51, Event:Access, Door:entry, Card No.:00012,
  18. 2006/11/29 15:55:55, Event:Access, Door:entry, Card No.:33333,
  19. 2006/11/29 15:56:01, Event:Access, Door:entry, Card No.:00123,
  20. 2006/11/29 15:57:07, Event:Access, Door:entry, Card No.:00012,
  21. 2006/11/29 15:57:12, Event:Access, Door:entry, Card No.:33333,
  22. 2006/11/29 15:57:15, Event:Access, Door:entry, Card No.:00123,
  23. 2006/11/29 15:57:18, Event:Access, Door:entry, Card No.:01234,
  24. 2006/11/29 15:57:21, Event:Access, Door:entry, Card No.:12345,
  25. 2006/11/29 15:57:35, Event:Access, Door:entry, Card No.:00001,
  26. 2006/11/29 15:57:42, Event:Access, Door:entry, Card No.:00001,
  27. 2006/11/29 15:57:50, Event:Access, Door:entry, Card No.:00012,
  28. 2006/11/29 15:57:52, Event:Access, Door:entry, Card No.:33333,
  29. 2006/11/29 15:57:55, Event:Access, Door:entry, Card No.:00123,
  30. 2006/11/29 15:58:48, Event:Access, Door:entry, Card No.:33333,
  31. 2006/11/29 15:58:51, Event:Access, Door:entry, Card No.:00012,
  32. 2006/11/29 15:58:54, Event:Access, Door:entry, Card No.:33333,
  33. 2006/11/29 15:58:57, Event:Access, Door:entry, Card No.:00001,
  34. 2006/11/29 15:59:06, Event:Access, Door:entry, Card No.:00012,
  35. 2006/11/29 15:59:20, Event:Access, Door:entry, Card No.:00012,
  36. 2006/11/29 15:59:32, Event:Access, Door:entry, Card No.:00012,
  37. 2006/11/29 15:59:37, Event:Access, Door:entry, Card No.:33333,
  38. 2006/11/29 16:00:11, Event:Access, Door:entry, Card No.:00012,
  39. 2006/11/29 16:01:11, Event:Access, Door:entry, Card No.:01234,
  40. 2006/11/29 16:01:21, Event:Access, Door:entry, Card No.:00001,
  41. 2006/11/29 16:01:29, Event:Access, Door:entry, Card No.:00012,
  42. 2006/11/29 16:01:32, Event:Access, Door:entry, Card No.:33333,
  43. 2006/11/29 16:01:35, Event:Access, Door:entry, Card No.:00123,
  44. 2006/11/29 16:01:38, Event:Access, Door:entry, Card No.:01234,
  45. 2006/11/29 16:01:41, Event:Access, Door:entry, Card No.:00012,
  46. 2006/11/29 16:01:43, Event:Access, Door:entry, Card No.:33333,
  47. 2006/11/29 16:01:45, Event:Access, Door:entry, Card No.:00123,
  48. 2006/11/29 16:01:48, Event:Access, Door:entry, Card No.:01234,
  49. 2006/11/29 16:01:50, Event:Access, Door:entry, Card No.:00012,
  50. 2006/11/29 16:01:52, Event:Access, Door:entry, Card No.:33333,
  51. 2006/11/29 16:01:55, Event:Access, Door:entry, Card No.:00123,
  52. 2006/11/29 16:02:05, Event:Access, Door:entry, Card No.:00001,
  53. 2006/11/29 16:02:14, Event:Access, Door:entry, Card No.:00012,
  54. 2006/11/29 16:02:16, Event:Access, Door:entry, Card No.:33333,
  55. 2006/11/29 16:03:05, Event:Access, Door:entry, Card No.:00001,
  56. 2006/11/29 16:07:00, Event:Access, Door:entry, Card No.:00012,
  57. 2006/11/29 16:07:37, Event:Access, Door:entry, Card No.:00012,
  58. 2006/11/29 16:07:40, Event:Access, Door:entry, Card No.:33333,
  59. 2006/11/29 16:07:44, Event:Access, Door:entry, Card No.:00123,
  60. 2006/11/29 16:07:47, Event:Access, Door:entry, Card No.:01234,
  61. 2006/11/29 16:07:53, Event:Access, Door:entry, Card No.:12345,
  62. 2006/11/29 16:07:57, Event:Access, Door:entry, Card No.:00001,
  63. 2006/11/29 16:08:14, Event:Access, Door:entry, Card No.:00001,
  64. 2006/11/29 16:08:56, Event:Access, Door:entry, Card No.:00001,
  65. 2006/11/29 16:09:16, Event:Access, Door:entry, Card No.:00001,
  66. 2006/11/29 16:09:24, Event:Access, Door:entry, Card No.:00012,
  67. 2006/11/29 16:09:27, Event:Access, Door:entry, Card No.:33333,
  68. 2006/11/29 16:10:16, Event:Access, Door:entry, Card No.:00012,
  69. 2006/11/29 16:10:22, Event:Access, Door:entry, Card No.:33333,
  70. 2006/11/29 16:10:25, Event:Access, Door:entry, Card No.:00123,
  71. 2006/11/29 16:10:27, Event:Access, Door:entry, Card No.:01234,
  72. 2006/11/29 16:10:31, Event:Access, Door:entry, Card No.:12345,
  73. 2006/11/29 16:10:34, Event:Access, Door:entry, Card No.:00001,
  74. 2006/11/29 16:11:01, Event:Access, Door:entry, Card No.:00123,
  75. 2006/11/29 16:11:04, Event:Access, Door:entry, Card No.:01234,
  76. 2006/11/29 16:11:07, Event:Access, Door:entry, Card No.:00012,
  77. 2006/11/29 16:11:21, Event:Access, Door:entry, Card No.:00001,
  78. 2006/11/29 16:12:05, Event:Access, Door:entry, Card No.:00012,
  79. 2006/11/29 16:12:08, Event:Access, Door:entry, Card No.:33333,
  80. 2006/11/29 16:12:11, Event:Access, Door:entry, Card No.:00123,
  81. 2006/11/29 16:12:14, Event:Access, Door:entry, Card No.:01234,
  82. 2006/11/29 16:12:17, Event:Access, Door:entry, Card No.:00123,
  83. 2006/11/29 16:12:19, Event:Access, Door:entry, Card No.:33333,
  84. 2006/11/29 16:12:50, Event:Access, Door:entry, Card No.:00012,
  85. 2006/11/29 16:12:52, Event:Access, Door:entry, Card No.:33333,
  86. 2006/11/29 16:13:49, Event:Access, Door:entry, Card No.:33333,
  87. 2006/11/29 16:14:17, Event:Access, Door:entry, Card No.:00012,
  88. 2006/11/29 16:14:21, Event:Access, Door:entry, Card No.:33333,
  89. 2006/11/29 16:14:23, Event:Access, Door:entry, Card No.:00123,
  90. 2006/11/29 16:14:26, Event:Access, Door:entry, Card No.:01234,
  91. 2006/11/29 16:14:30, Event:Access, Door:entry, Card No.:00012,
  92. 2006/11/29 16:14:36, Event:Access, Door:entry, Card No.:33333,
  93. 2006/11/29 16:14:38, Event:Access, Door:entry, Card No.:00123,
  94. 2006/11/29 16:16:23, Event:Access, Door:entry, Card No.:00001,
  95. 2006/11/29 16:16:25, Event:Access, Door:entry, Card No.:00001,
  96. 2006/11/29 16:16:29, Event:Access, Door:entry, Card No.:00001,
  97. 2006/11/29 16:16:35, Event:Access, Door:entry, Card No.:00012,
  98. 2006/11/29 16:16:38, Event:Access, Door:entry, Card No.:33333,
  99. 2006/11/29 16:16:41, Event:Access, Door:entry, Card No.:00123,
  100. 2006/11/29 16:36:48, Event:Access, Door:entry, Card No.:00001,
  101. 2006/11/29 16:37:25, Event:Access, Door:entry, Card No.:00001,
  102. 2006/11/29 16:38:25, Event:Access, Door:entry, Card No.:33333,
  103. 2006/11/29 16:38:51, Event:Access, Door:entry, Card No.:00001,
  104. 2006/11/29 16:39:25, Event:Access, Door:entry, Card No.:00001,
  105. 2006/11/29 16:39:58, Event:Access, Door:entry, Card No.:00001,
  106. 2006/11/29 16:43:52, Event:Access, Door:entry, Card No.:00001,
  107. 2006/11/29 16:45:06, Event:Access, Door:entry, Card No.:00012,
  108. 2006/11/29 16:45:52, Event:Access, Door:entry, Card No.:00123,
  109. 2006/11/29 16:46:29, Event:Access, Door:entry, Card No.:01234,
  110. 2006/11/29 16:47:22, Event:Access, Door:entry, Card No.:00123,
  111. 2006/11/29 16:50:09, Event:Access, Door:entry, Card No.:00012,
  112. 2006/11/29 16:50:12, Event:Access, Door:entry, Card No.:33333,
  113. 2006/11/29 16:50:15, Event:Access, Door:entry, Card No.:00123,
  114. 2006/11/29 16:50:18, Event:Access, Door:entry, Card No.:01234,
  115. 2006/11/29 16:50:22, Event:Access, Door:entry, Card No.:00012,
  116. 2006/11/29 16:50:25, Event:Access, Door:entry, Card No.:33333,
  117. 2006/11/29 16:50:28, Event:Access, Door:entry, Card No.:00123,
  118. 2006/11/29 16:50:40, Event:Access, Door:entry, Card No.:00001,
  119. 2006/11/29 19:11:58, Event:Access, Door:entry, Card No.:00001,
  120. 2006/11/30 09:06:48, Event:Access, Door:entry, Card No.:00002,
  121. 2006/11/30 09:07:24, Event:Access, Door:entry, Card No.:00002,
  122. 2006/11/30 09:08:35, Event:Access, Door:entry, Card No.:00003,
  123. 2006/11/30 09:09:18, Event:Access, Door:entry, Card No.:00001,
  124. 2006/11/30 09:09:29, Event:Access, Door:entry, Card No.:00004,
  125. 2006/11/30 09:10:03, Event:Access, Door:entry, Card No.:00001,
  126. 2006/11/30 09:10:07, Event:Access, Door:entry, Card No.:00005,
  127. 2006/11/30 09:12:39, Event:Access, Door:entry, Card No.:00008,
  128. 2006/11/30 09:13:46, Event:Access, Door:entry, Card No.:00009,
  129. 2006/11/30 09:14:10, Event:Access, Door:entry, Card No.:00008,
  130. 2006/11/30 09:14:50, Event:Access, Door:entry, Card No.:00010,
  131. 2006/11/30 09:14:56, Event:Access, Door:entry, Card No.:00010,
  132. 2006/11/30 09:15:07, Event:Access, Door:entry, Card No.:00005,
  133. 2006/11/30 09:16:23, Event:Access, Door:entry, Card No.:00002,
  134. 2006/11/30 09:17:56, Event:Access, Door:entry, Card No.:00006,
  135. 2006/11/30 09:22:54, Event:Access, Door:entry, Card No.:00005,
  136. 2006/11/30 09:31:18, Event:Access, Door:entry, Card No.:00002,
  137. 2006/11/30 09:31:23, Event:Access, Door:entry, Card No.:00002,
  138. 2006/11/30 09:31:34, Event:Access, Door:entry, Card No.:00004,
  139. 2006/11/30 09:35:18, Event:Access, Door:entry, Card No.:00002,
  140. 2006/11/30 09:35:24, Event:Access, Door:entry, Card No.:00002,
  141. 2006/11/30 09:35:38, Event:Access, Door:entry, Card No.:00009,
  142. 2006/11/30 09:36:35, Event:Access, Door:entry, Card No.:00009,
  143. 2006/11/30 09:38:24, Event:Access, Door:entry, Card No.:01234,
  144. 2006/11/30 15:08:15, Event:Access, Door:entry, Card No.:01234,
  145. 2006/11/30 15:08:21, Event:Access, Door:entry, Card No.:01234,
  146. 2006/11/30 15:11:00, Event:Access, Door:entry, Card No.:00001,
  147. 2006/11/30 15:11:15, Event:Access, Door:entry, Card No.:00001,
  148. 2006/11/30 17:22:13, Event:Access, Door:entry, Card No.:00001,
  149. 2006/11/30 17:22:18, Event:Access, Door:entry, Card No.:00011,
  150. 2006/11/30 17:26:19, Event:Access, Door:entry, Card No.:00001,
  151. 2006/11/30 17:26:23, Event:Access, Door:entry, Card No.:00012,
  152. 2006/11/30 17:26:27, Event:Access, Door:entry, Card No.:33333,
  153. 2006/11/30 17:26:31, Event:Access, Door:entry, Card No.:00123,
  154. 2006/11/30 17:26:34, Event:Access, Door:entry, Card No.:01234,
  155. 2006/11/30 17:26:37, Event:Access, Door:entry, Card No.:12345,
  156. 2006/12/02 09:56:46, Event:Access, Door:entry, Card No.:01234,
  157. 2006/12/02 09:56:55, Event:Access, Door:entry, Card No.:00012,
  158. 2006/12/02 09:57:00, Event:Access, Door:entry, Card No.:12345,
  159. 2006/12/02 09:57:05, Event:Access, Door:entry, Card No.:12345,
  160. 2006/12/02 09:57:43, Event:Access, Door:entry, Card No.:12345,
  161. 2006/12/02 09:58:01, Event:Access, Door:entry, Card No.:54321,
what i want to happen is after i download the attendance i want to sepate the file base on there date i.e. 2006/11/29 , 2006/11/30, 2006/12/02 then save it, the file name also base on there date i.e. 12022006..and also every time a download the attendance it's over write the existing file textfile, it should not over write the existing textfile
Reply With Quote Quick reply to this message  
•
•
Join Date: Nov 2006
Posts: 848
Reputation: QVeen72 is on a distinguished road 
Solved Threads: 120
QVeen72's Avatar
QVeen72 QVeen72 is offline Offline
Practically a Posting Shark

Re: How to open multiple textfile

 
0
  #16
Dec 2nd, 2006
Hi,

Ok,

If u open a file for Outoput, the file is over-written instead use Append.
In Append Mode, the data is updated to the existing File. If the File does not exist, then new one is created.
Its always a good programming practice to use FreeFile to Get the Number.

Dim FN As Long
FN = FreeFile
Open "C:\TNA\" & Format(iDate, "mmddyyyy") & ".txt" For Append As #FN
' Do the Coding Here
Close #FN


After this as usual use open the file in the loop, use Append Mode to create the files.

If u get stuck with the coding, then let me know, Post the project, i will modify and post it back.

Regards
Veena
Reply With Quote Quick reply to this message  
•
•
Join Date: Sep 2006
Posts: 54
Reputation: royaloba is an unknown quantity at this point 
Solved Threads: 1
royaloba royaloba is offline Offline
Junior Poster in Training

Re: How to open multiple textfile

 
0
  #17
Dec 4th, 2006
Veena,
thanks, you've solve my 2nd problem, but still my main problem is if i will download all the attendance from the reader it will save only in one file..this is the sample output file... the file name is base on the date i download the file...12052006.txt

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
  1. 2006/12/01 10:53:40, Event:Access, Door:1, Card No.:00011,
  2. 2006/12/01 10:53:49, Event:Access, Door:1, Card No.:00010,
  3. 2006/12/01 11:01:17, Event:Access, Door:1, Card No.:00010,
  4. 2006/12/01 11:01:19, Event:Access, Door:1, Card No.:00011,
  5. 2006/12/01 11:03:03, Event:Access, Door:1, Card No.:00012,
  6. 2006/12/01 11:03:05, Event:Access, Door:1, Card No.:33333,
  7. 2006/12/01 11:03:07, Event:Access, Door:1, Card No.:00123,
  8. 2006/12/01 11:03:09, Event:Access, Door:1, Card No.:01234,
  9. 2006/12/01 11:04:51, Event:Access, Door:1, Card No.:00015,
  10. 2006/12/01 11:05:18, Event:Access, Door:1, Card No.:00016,
  11. 2006/12/01 11:05:56, Event:Access, Door:1, Card No.:00015,
  12. 2006/12/01 11:05:58, Event:Access, Door:1, Card No.:00016,
  13. 2006/12/01 11:06:39, Event:Access, Door:1, Card No.:00015,
  14. 2006/12/02 10:53:40, Event:Access, Door:1, Card No.:00011,
  15. 2006/12/02 10:53:49, Event:Access, Door:1, Card No.:00010,
  16. 2006/12/02 11:01:17, Event:Access, Door:1, Card No.:00010,
  17. 2006/12/02 11:01:19, Event:Access, Door:1, Card No.:00011,
  18. 2006/12/02 11:03:03, Event:Access, Door:1, Card No.:00012,
  19. 2006/12/02 11:03:05, Event:Access, Door:1, Card No.:33333,
  20. 2006/12/02 11:03:07, Event:Access, Door:1, Card No.:00123,
  21. 2006/12/02 11:03:09, Event:Access, Door:1, Card No.:01234,
  22. 2006/12/02 11:04:51, Event:Access, Door:1, Card No.:00015,
  23. 2006/12/02 11:05:18, Event:Access, Door:1, Card No.:00016,
  24. 2006/12/02 11:05:56, Event:Access, Door:1, Card No.:00015,
  25. 2006/12/02 11:05:58, Event:Access, Door:1, Card No.:00016,
  26. 2006/12/02 11:06:39, Event:Access, Door:1, Card No.:00015,
  27. 2006/12/03 10:53:40, Event:Access, Door:1, Card No.:00011,
  28. 2006/12/03 10:53:49, Event:Access, Door:1, Card No.:00010,
  29. 2006/12/03 11:01:17, Event:Access, Door:1, Card No.:00010,
  30. 2006/12/03 11:01:19, Event:Access, Door:1, Card No.:00011,
  31. 2006/12/03 11:03:03, Event:Access, Door:1, Card No.:00012,
  32. 2006/12/03 11:03:05, Event:Access, Door:1, Card No.:33333,
  33. 2006/12/03 11:03:07, Event:Access, Door:1, Card No.:00123,
  34. 2006/12/03 11:03:09, Event:Access, Door:1, Card No.:01234,
  35. 2006/12/03 11:04:51, Event:Access, Door:1, Card No.:00015,
  36. 2006/12/03 11:05:18, Event:Access, Door:1, Card No.:00016,
  37. 2006/12/03 11:05:56, Event:Access, Door:1, Card No.:00015,
  38. 2006/12/03 11:05:58, Event:Access, Door:1, Card No.:00016,
  39. 2006/12/03 11:06:39, Event:Access, Door:1, Card No.:00015,
  40. 2006/12/04 10:53:40, Event:Access, Door:1, Card No.:00011,
  41. 2006/12/04 10:53:49, Event:Access, Door:1, Card No.:00010,
  42. 2006/12/04 11:01:17, Event:Access, Door:1, Card No.:00010,
  43. 2006/12/04 11:01:19, Event:Access, Door:1, Card No.:00011,
  44. 2006/12/04 11:03:03, Event:Access, Door:1, Card No.:00012,
  45. 2006/12/04 11:03:05, Event:Access, Door:1, Card No.:33333,
  46. 2006/12/04 11:03:07, Event:Access, Door:1, Card No.:00123,
  47. 2006/12/04 11:03:09, Event:Access, Door:1, Card No.:01234,
  48. 2006/12/04 11:04:51, Event:Access, Door:1, Card No.:00015,
  49. 2006/12/04 11:05:18, Event:Access, Door:1, Card No.:00016,
  50. 2006/12/04 11:05:56, Event:Access, Door:1, Card No.:00015,
  51. 2006/12/04 11:05:58, Event:Access, Door:1, Card No.:00016,
  52. 2006/12/04 11:06:39, Event:Access, Door:1, Card No.:00015,

it should be separate the file base on there date i.e. 2006/12/01, 2006/12/02, 2006/12/03, 2006/12/04.. then, the file name should be in 12012006, 12022006, 12032006, 12042006...
my code saves them in one file only, that's my main problem...help me please..thanks again..

my code

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
  1.   Dim dwEnrollNumber As Long
  2.     Dim dwVerifyMode As Long
  3.     Dim dwInOutMode As Long
  4.     Dim timeStr As String
  5.     Dim iDate As Date
  6.     Dim i As Long
  7.     Dim FN As Long
  8.  
  9.     FN = FreeFile
  10.     iDate = Date
  11.  
  12.     dwEnrollNumber = 1
  13.     CZKEM1.ReadAllGLogData 1
  14.         i = i = 1
  15.     'Open "C:\TNA\" & Format(Left(timeStr, 10), "mmddyyyy") & ".txt" For Output As #1
  16.     While CZKEM1.GetGeneralLogDataStr(1, dwEnrollNumber, dwVerifyMode, dwInOutMode, timeStr)
  17.     On Error GoTo Err
  18.     Open "C:\TNA\" & Format(iDate, "mmddyyyy") & ".txt" For Append As #FN
  19.         'i = i + 1
  20.  
  21.         If dwInOutMode = 0 Then
  22.             iInOut = "Event:Access,"
  23.             Else
  24.             iInOut = "Event:Access,"
  25.         End If
  26.  
  27.         Print #1, Format(timeStr, "YYYY/MM/DD HH:MM:SS,") & " " & iInOut & " " & "Door:" & dwVerifyMode & "," & " " & "Card No.:" & Format(dwEnrollNumber, "00000") & ","
  28.  
  29.             i = i + 1
  30.     Wend
  31.     MsgBox "Attendance successfully downloaded"
  32.     Close #FN
  33.  
  34. Err:
  35.     Resume Next
Reply With Quote Quick reply to this message  
•
•
Join Date: May 2006
Posts: 3,131
Reputation: WaltP has much to be proud of WaltP has much to be proud of WaltP has much to be proud of WaltP has much to be proud of WaltP has much to be proud of WaltP has much to be proud of WaltP has much to be proud of WaltP has much to be proud of WaltP has much to be proud of 
Solved Threads: 283
Moderator
WaltP's Avatar
WaltP WaltP is offline Offline
Posting Sensei

Re: How to open multiple textfile

 
0
  #18
Dec 4th, 2006
•
•
•
•
Originally Posted by royaloba View Post
Veena,
thanks, you've solve my 2nd problem, but still my main problem is if i will download all the attendance from the reader it will save only in one file..this is the sample output file... the file name is base on the date i download the file...12052006.txt

it should be separate the file base on there date i.e. 2006/12/01, 2006/12/02, 2006/12/03, 2006/12/04.. then, the file name should be in 12012006, 12022006, 12032006, 12042006...
my code saves them in one file only, that's my main problem...help me please..thanks again..
That's because you use iDate to create the file which holds only the current date. I believe you need timeStr instead. Also, it would be better to break your OPEN statement into two pieces for debugging purposes:
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
  1. '' First create the file name.  You can then look at it if you need to 
  2. '' before you open the file
  3. fname = "C:\TNA\" & Format(timeStr, "mmddyyyy") & ".txt"
  4.  
  5. '' Then use that file name to do the actual open
  6. Open fname For Append As #FN
The code is also easier to read this way.
The 3 Laws of the Procrastination Society:
1) Never do today that which can be put off until tomorrow
2) Tomorrow never comes
Reply With Quote Quick reply to this message  
•
•
Join Date: Sep 2006
Posts: 54
Reputation: royaloba is an unknown quantity at this point 
Solved Threads: 1
royaloba royaloba is offline Offline
Junior Poster in Training

Re: How to open multiple textfile

 
0
  #19
Dec 5th, 2006
Veena, WaltP
thanks guys, i got the correct output!:cheesy: i just place the Close#FN before the wend

Regards
Reply With Quote Quick reply to this message  
•
•
Join Date: Sep 2006
Posts: 54
Reputation: royaloba is an unknown quantity at this point 
Solved Threads: 1
royaloba royaloba is offline Offline
Junior Poster in Training

Re: How to open multiple textfile

 
0
  #20
Dec 20th, 2006
Veena,
hello my project is almost done! i have two quetions for you how can i output the textfile in a accending order,sample

I have READER A which have this file

2006/12/17 13:22:29, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:31, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:22:35, Event:Access, Door:1, Card No.:00003,
2006/12/17 13:22:38, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:42, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:22:43, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:44, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:22:47, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:48, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:22:49, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:51, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:22:52, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:53, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:22:55, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:57, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:22:59, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:23:00, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:23:02, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:23:05, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:23:07, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:23:08, Event:Access, Door:1, Card No.:00002,

And READER B which have this file

2006/12/17 07:16:00, Event:Access, Door:1, Card No.:00001,
2006/12/17 11:52:30, Event:Access, Door:1, Card No.:00002,
2006/12/17 11:52:31, Event:Access, Door:1, Card No.:00001,
2006/12/17 11:52:33, Event:Access, Door:1, Card No.:00002,
2006/12/17 11:52:35, Event:Access, Door:1, Card No.:00003,
2006/12/17 11:52:37, Event:Access, Door:1, Card No.:00004,
2006/12/17 11:52:38, Event:Access, Door:1, Card No.:00001,
2006/12/17 11:52:40, Event:Access, Door:1, Card No.:00002,
2006/12/17 11:52:49, Event:Access, Door:1, Card No.:00004,
2006/12/17 11:52:53, Event:Access, Door:1, Card No.:00003,
2006/12/17 11:53:45, Event:Access, Door:1, Card No.:00001,
2006/12/17 11:53:46, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:21:42, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:21:43, Event:Access, Door:1, Card No.:00002,
2006/12/17 13:21:44, Event:Access, Door:1, Card No.:00003,
2006/12/17 13:21:45, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:21:47, Event:Access, Door:1, Card No.:00004,
2006/12/17 13:22:17, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:25, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:33, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:40, Event:Access, Door:1, Card No.:00001,
2006/12/17 13:22:45, Event:Access, Door:1, Card No.:00001,
2006/12/17 17:00:00, Event:Access, Door:1, Card No.:00001,

Because after reading the Reader A and B the content of Reader B will be place in the end of the file, how can i insert the file in
accending order base on there time..?

my second questions is how can i make the textfile read only, the textfile would not be editable..! is that possible? thanks :p
Reply With Quote Quick reply to this message  
Reply
1 2 3

Quick Reply to Thread
This thread is more than three months old.
Perhaps start a new thread instead?
•
•
•
•
•
•
•
•
Message:
•
•
•
•



Other Threads in the Visual Basic 4 / 5 / 6 Forum


Views: 8073 | Replies: 26
Thread Tools Search this Thread



Tag cloud for Visual Basic 4 / 5 / 6
6 429 2007 access activex add age append application basic beginner birth c++ calculator cd cells.find click client code college column component connection connectionproblemusingvb6usingoledb copy creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit error excel excelmacro file filename form hardware header iamthwee image inboxinvb internetfiledownload keypress label listbox listview liveperson login looping machine microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading record refresh remotesqlserverdatabase report retrieve save search sendbyte sites sort sql sql2008 sqlserver struct subroutine table tags textbox time timer urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web window windows
About Us | Contact Us | Advertise | DaniWeb | Acceptable Use Policy | RSS Feed

©2003 - 2009 DaniWeb® LLC