{"id":125,"date":"2008-02-28T01:10:43","date_gmt":"2008-02-27T16:10:43","guid":{"rendered":"http:\/\/dev.activebasic.com\/egtra\/?p=125"},"modified":"2008-02-28T01:35:26","modified_gmt":"2008-02-27T16:35:26","slug":"ab5%e3%81%ae%e8%a7%a3%ef%bc%88%e3%82%bd%e3%83%aa%e3%83%a5%e3%83%bc%e3%82%b7%e3%83%a7%e3%83%b3%ef%bc%89-%e2%80%94%e2%80%94-line-input-%e2%80%94%e2%80%94","status":"publish","type":"post","link":"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/","title":{"rendered":"AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014"},"content":{"rendered":"<p>\u3053\u308c\u307e\u3067\u5e7e\u5ea6\u3068\u306a\u304fLine Input #\u306b\u76f8\u5f53\u3059\u308b\u7269\u3092\u6c42\u3081\u308b\u8981\u671b\u3084\u5b9f\u969b\u306b\u4f5c\u3089\u308c\u305f\u7269\u3092\u62dd\u898b\u3057\u3066\u304d\u307e\u3057\u305f\u304c\u3001\u3088\u3046\u3084\u304fLine Input #\u306b\u4ee3\u308f\u308b\u30011\u884c\u8aad\u307f\u8fbc\u307f\u306e\u624b\u6bb5\u3092AB5\u306b\u7528\u610f\u3057\u307e\u3057\u305f\u3002\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002<\/p>\n<p><!--more--><\/p>\n<pre><code>#console\r\n\r\nImports ActiveBasic\r\nImports ActiveBasic.Strings\r\nImports System\r\nImports System.IO\r\n\r\nTry\r\n\tPrint \"Input filename: \";\r\n\tDim filename = Console.ReadLine\r\n\tDim sr = New StreamReader(filename)\r\n\tDim i = 1 As Long\r\n\tDo\r\n\t\tDim s = sr.ReadLine\r\n\t\tIf IsNothing(s) Then\r\n\t\t\tExit Do\r\n\t\tEnd If\r\n\t\ts = s.Replace(Ex\"\\\\t\", \"    \")\r\n\t\tPrint SPrintf(\"%3d: %s\", New Int32(i), s)\r\n\t\ti++\r\n\tLoop\r\nCatch e As Exception\r\n\tPrint \"\u30a8\u30e9\u30fc:\"; e.ToString(), Hex$(e.HResult)\r\nEnd Try\r\n\r\nConsole.ReadLine()\r\nExitProcess(0)<\/code><\/pre>\n<p>\u30e6\u30fc\u30b6\u304b\u3089\u6307\u5b9a\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u5148\u982d\u306b\u884c\u6570\u3092\u4ed8\u3051\u3001\u30bf\u30d6\u30924\u6587\u5b57\u306e\u7a7a\u767d\u306b\u5c55\u958b\u3057\u3066\u51fa\u529b\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002<\/p>\n<p>End\u547d\u4ee4\u3067\u306f\u306a\u304fExitProcess\u95a2\u6570\u3092\u4f7f\u3063\u3066\u3044\u308b\u7406\u7531\u306f\u3001End\u3067\u7d42\u308f\u3089\u305b\u308b\u3068\u7d42\u4e86\u51e6\u7406\u306e\u6700\u4e2d\u306b\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u843d\u3061\u308b\u305f\u3081\u3067\u3001ExitProcess\u3067\u3054\u307e\u304b\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u3053\u3089\u3078\u3093\u306fAB5\u304c\u672a\u5b8c\u6210\u3086\u3048\u306e\u3053\u3068\u3067\u3059\u3002<\/p>\n<p>\u7c21\u5358\u306b\u89e3\u8aac\u3057\u3066\u304a\u304f\u3068\u3001Console.ReadLine\u306f\u30b3\u30f3\u30bd\u30fc\u30eb\u753b\u9762\u304b\u3089\u3001StreamReader\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u306eReadLine\u306f\u30d5\u30a1\u30a4\u30eb\u304b\u30891\u884c\u306e\u6587\u5b57\u5217\u3092\u8aad\u307f\u8fbc\u307f\u3001\u623b\u308a\u5024\u306b\u3057\u307e\u3059\u3002\u30d5\u30a1\u30a4\u30eb\u306e\u7d42\u308f\u308a\u306b\u9054\u3059\u308b\u3068\u3001Nothing\u3092\u8fd4\u3059\u306e\u3067\u3001IsNothing\u95a2\u6570\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u7d42\u308f\u308a\u304b\u3069\u3046\u304b\u3092\u5224\u5b9a\u3067\u304d\u307e\u3059\u3002SPrint\u3082\u304a\u3082\u3057\u308d\u3044\u3053\u3068\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u304c\u307e\u305f\u4eca\u5ea6\u3067\u3059\u3002<\/p>\n<p>\u51fa\u529b\u306f\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002\u3053\u3053\u3067\u306f\u3001\u81ea\u8eab\u306e\u30bd\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<pre><samp>Input filename: <\/samp><kbd>h:\\\\u.ab<\/kbd>\r\n<samp>  1: #console\r\n  2:\r\n  3: Imports ActiveBasic\r\n  4: Imports ActiveBasic.Strings\r\n  5: Imports System\r\n  6: Imports System.IO\r\n  7:\r\n  8: Try\r\n  9:     Print \"Input filename: \";\r\n 10:     Dim filename = Console.ReadLine\r\n 11:     Dim sr = New StreamReader(filename)\r\n 12:     Dim i = 1 As Long\r\n 13:     Do\r\n 14:         Dim s = sr.ReadLine\r\n 15:         If IsNothing(s) Then\r\n 16:             Exit Do\r\n 17:         End If\r\n 18:         s = s.Replace(Ex\"\\\\t\", \"    \")\r\n 19:         Print SPrintf(\"%3d: %s\", New Int32(i), s)\r\n 20:         i++\r\n 21:     Loop\r\n 22: Catch e As Exception\r\n 23:     Print \"\u30a8\u30e9\u30fc:\"; e.ToString(), Hex$(e.HResult)\r\n 24: End Try\r\n 25:\r\n 26: Console.ReadLine()\r\n 27: ExitProcess(0)<\/samp><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u3053\u308c\u307e\u3067\u5e7e\u5ea6\u3068\u306a\u304fLine Input #\u306b\u76f8\u5f53\u3059\u308b\u7269\u3092\u6c42\u3081\u308b\u8981\u671b\u3084\u5b9f\u969b\u306b\u4f5c\u3089\u308c\u305f\u7269\u3092\u62dd\u898b\u3057\u3066\u304d\u307e\u3057\u305f\u304c\u3001\u3088\u3046\u3084\u304fLine Input #\u306b\u4ee3\u308f\u308b\u30011\u884c\u8aad\u307f\u8fbc\u307f\u306e\u624b\u6bb5\u3092AB5\u306b\u7528\u610f\u3057\u307e\u3057\u305f\u3002\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[3],"tags":[],"class_list":["post-125","post","type-post","status-publish","format-standard","hentry","category-ab"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v23.0 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014 - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d<\/title>\n<meta name=\"description\" content=\"\u3053\u308c\u307e\u3067\u5e7e\u5ea6\u3068\u306a\u304fLine Input #\u306b\u76f8\u5f53\u3059\u308b\u7269\u3092\u6c42\u3081\u308b\u8981\u671b\u3084\u5b9f\u969b\u306b\u4f5c\u3089\u308c\u305f\u7269\u3092\u62dd\u898b\u3057\u3066\u304d\u307e\u3057\u305f\u304c\u3001\u3088\u3046\u3084\u304fLine Input\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/\" \/>\n<meta property=\"og:locale\" content=\"ja_JP\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014 - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d\" \/>\n<meta property=\"og:description\" content=\"\u3053\u308c\u307e\u3067\u5e7e\u5ea6\u3068\u306a\u304fLine Input #\u306b\u76f8\u5f53\u3059\u308b\u7269\u3092\u6c42\u3081\u308b\u8981\u671b\u3084\u5b9f\u969b\u306b\u4f5c\u3089\u308c\u305f\u7269\u3092\u62dd\u898b\u3057\u3066\u304d\u307e\u3057\u305f\u304c\u3001\u3088\u3046\u3084\u304fLine Input\" \/>\n<meta property=\"og:url\" content=\"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/\" \/>\n<meta property=\"og:site_name\" content=\"\u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d\" \/>\n<meta property=\"article:publisher\" content=\"https:\/\/www.facebook.com\/ysk.noh\" \/>\n<meta property=\"article:published_time\" content=\"2008-02-27T16:10:43+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2008-02-27T16:35:26+00:00\" \/>\n<meta name=\"author\" content=\"egtra\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:creator\" content=\"@egtra\" \/>\n<meta name=\"twitter:site\" content=\"@egtra\" \/>\n<meta name=\"twitter:label1\" content=\"\u57f7\u7b46\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"egtra\" \/>\n\t<meta name=\"twitter:label2\" content=\"\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593\" \/>\n\t<meta name=\"twitter:data2\" content=\"1\u5206\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/\",\"url\":\"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/\",\"name\":\"AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014 - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d\",\"isPartOf\":{\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/#website\"},\"datePublished\":\"2008-02-27T16:10:43+00:00\",\"dateModified\":\"2008-02-27T16:35:26+00:00\",\"author\":{\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/#\/schema\/person\/8de756b2ff20b964f64594dfe8f18164\"},\"description\":\"\u3053\u308c\u307e\u3067\u5e7e\u5ea6\u3068\u306a\u304fLine Input #\u306b\u76f8\u5f53\u3059\u308b\u7269\u3092\u6c42\u3081\u308b\u8981\u671b\u3084\u5b9f\u969b\u306b\u4f5c\u3089\u308c\u305f\u7269\u3092\u62dd\u898b\u3057\u3066\u304d\u307e\u3057\u305f\u304c\u3001\u3088\u3046\u3084\u304fLine Input\",\"breadcrumb\":{\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/#breadcrumb\"},\"inLanguage\":\"ja\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u30db\u30fc\u30e0\",\"item\":\"https:\/\/dev.activebasic.com\/egtra\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/#website\",\"url\":\"https:\/\/dev.activebasic.com\/egtra\/\",\"name\":\"\u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d\",\"description\":\"\u982d\u306e\u4e2d\u306e\u304b\u3051\u3089\u3002ActiveBasic\u3092\u4e2d\u5fc3\u306b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u8a71\u3092\u307c\u3061\u307c\u3061\u3068\u3002\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/dev.activebasic.com\/egtra\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"ja\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/dev.activebasic.com\/egtra\/#\/schema\/person\/8de756b2ff20b964f64594dfe8f18164\",\"name\":\"egtra\",\"sameAs\":[\"https:\/\/x.com\/egtra\"],\"url\":\"https:\/\/dev.activebasic.com\/egtra\/author\/admin\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014 - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","description":"\u3053\u308c\u307e\u3067\u5e7e\u5ea6\u3068\u306a\u304fLine Input #\u306b\u76f8\u5f53\u3059\u308b\u7269\u3092\u6c42\u3081\u308b\u8981\u671b\u3084\u5b9f\u969b\u306b\u4f5c\u3089\u308c\u305f\u7269\u3092\u62dd\u898b\u3057\u3066\u304d\u307e\u3057\u305f\u304c\u3001\u3088\u3046\u3084\u304fLine Input","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/","og_locale":"ja_JP","og_type":"article","og_title":"AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014 - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","og_description":"\u3053\u308c\u307e\u3067\u5e7e\u5ea6\u3068\u306a\u304fLine Input #\u306b\u76f8\u5f53\u3059\u308b\u7269\u3092\u6c42\u3081\u308b\u8981\u671b\u3084\u5b9f\u969b\u306b\u4f5c\u3089\u308c\u305f\u7269\u3092\u62dd\u898b\u3057\u3066\u304d\u307e\u3057\u305f\u304c\u3001\u3088\u3046\u3084\u304fLine Input","og_url":"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/","og_site_name":"\u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","article_publisher":"https:\/\/www.facebook.com\/ysk.noh","article_published_time":"2008-02-27T16:10:43+00:00","article_modified_time":"2008-02-27T16:35:26+00:00","author":"egtra","twitter_card":"summary_large_image","twitter_creator":"@egtra","twitter_site":"@egtra","twitter_misc":{"\u57f7\u7b46\u8005":"egtra","\u63a8\u5b9a\u8aad\u307f\u53d6\u308a\u6642\u9593":"1\u5206"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/","url":"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/","name":"AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014 - \u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","isPartOf":{"@id":"https:\/\/dev.activebasic.com\/egtra\/#website"},"datePublished":"2008-02-27T16:10:43+00:00","dateModified":"2008-02-27T16:35:26+00:00","author":{"@id":"https:\/\/dev.activebasic.com\/egtra\/#\/schema\/person\/8de756b2ff20b964f64594dfe8f18164"},"description":"\u3053\u308c\u307e\u3067\u5e7e\u5ea6\u3068\u306a\u304fLine Input #\u306b\u76f8\u5f53\u3059\u308b\u7269\u3092\u6c42\u3081\u308b\u8981\u671b\u3084\u5b9f\u969b\u306b\u4f5c\u3089\u308c\u305f\u7269\u3092\u62dd\u898b\u3057\u3066\u304d\u307e\u3057\u305f\u304c\u3001\u3088\u3046\u3084\u304fLine Input","breadcrumb":{"@id":"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/#breadcrumb"},"inLanguage":"ja","potentialAction":[{"@type":"ReadAction","target":["https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/dev.activebasic.com\/egtra\/2008\/02\/28\/125\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u30db\u30fc\u30e0","item":"https:\/\/dev.activebasic.com\/egtra\/"},{"@type":"ListItem","position":2,"name":"AB5\u306e\u89e3\uff08\u30bd\u30ea\u30e5\u30fc\u30b7\u30e7\u30f3\uff09 \u2014\u2014 Line Input # \u2014\u2014"}]},{"@type":"WebSite","@id":"https:\/\/dev.activebasic.com\/egtra\/#website","url":"https:\/\/dev.activebasic.com\/egtra\/","name":"\u30a4\u30b0\u30c8\u30e9\u30f3\u30b9\u306e\u982d\u306e\u4e2d","description":"\u982d\u306e\u4e2d\u306e\u304b\u3051\u3089\u3002ActiveBasic\u3092\u4e2d\u5fc3\u306b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u8a71\u3092\u307c\u3061\u307c\u3061\u3068\u3002","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/dev.activebasic.com\/egtra\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"ja"},{"@type":"Person","@id":"https:\/\/dev.activebasic.com\/egtra\/#\/schema\/person\/8de756b2ff20b964f64594dfe8f18164","name":"egtra","sameAs":["https:\/\/x.com\/egtra"],"url":"https:\/\/dev.activebasic.com\/egtra\/author\/admin\/"}]}},"_links":{"self":[{"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/posts\/125"}],"collection":[{"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/comments?post=125"}],"version-history":[{"count":0,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/posts\/125\/revisions"}],"wp:attachment":[{"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/media?parent=125"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/categories?post=125"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dev.activebasic.com\/egtra\/wp-json\/wp\/v2\/tags?post=125"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}