{"id":35,"date":"2004-04-06T15:26:55","date_gmt":"2004-04-06T20:26:55","guid":{"rendered":"http:\/\/coding.mu\/index.php\/archives\/2004\/04\/06\/reading-files-in-visual-basic-gw-basic-style\/"},"modified":"2022-05-22T00:13:19","modified_gmt":"2022-05-21T23:13:19","slug":"reading-files-in-visual-basic-gw-basic-style","status":"publish","type":"post","link":"https:\/\/priscimon.net\/coding\/2004\/04\/06\/reading-files-in-visual-basic-gw-basic-style\/","title":{"rendered":"Reading files in Visual Basic, GW-Basic style"},"content":{"rendered":"<p>Recently I was asked how to read a file without using streams in Visual Basic.<\/p>\n<p>Of course, if you&#8217;ve done this once in GW-Basic, you never forget.<\/p>\n<pre><code>\n    Dim iFileNumber As Integer\n    Dim sLine As String\n\n    iFileNumber = FreeFile\n    Open \"C:\\stats.log\" For Input As iFileNumber\n    Do While Not EOF(iFileNumber)\n        Input #iFileNumber, sLine\n        MsgBox sLine\n    Loop\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Recently I was asked how to read a file without using streams in Visual Basic. Of course, if you&#8217;ve done this once in GW-Basic, you never forget. Dim iFileNumber As Integer Dim sLine As String iFileNumber = FreeFile Open &#8220;C:\\stats.log&#8221; For Input As iFileNumber Do While Not EOF(iFileNumber) Input #iFileNumber, sLine MsgBox sLine Loop<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[1],"tags":[],"class_list":["post-35","post","type-post","status-publish","format-standard","hentry","category-general"],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p3I4g9-z","jetpack-related-posts":[],"jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/posts\/35","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/comments?post=35"}],"version-history":[{"count":7,"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/posts\/35\/revisions"}],"predecessor-version":[{"id":1737,"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/posts\/35\/revisions\/1737"}],"wp:attachment":[{"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/media?parent=35"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/categories?post=35"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/priscimon.net\/coding\/wp-json\/wp\/v2\/tags?post=35"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}