ãã¡ã¤ã«ããèªã¿è¾¼ã æåã¯ã次ã®ãããªããã¹ããã¡ã¤ã«ãä¾ã«ãã¾ãã ãã¡ã¤ã«ã®å ´æ(ãã«ãã¹)ã¯ãC:\Sample\Data.txtãã¨ãã¾ãããã®ãã¡ã¤ã«ããã1è¡ãã¤èªã¿è¾¼ãã§ã»ã«ã«ä»£å
¥ãã¦ã¿ã¾ãããã ããã¹ããã¡ã¤ã«ãã1è¡ãã¤èªã¿è¾¼ãã«ã¯ãLine Inputã¹ãã¼ãã¡ã³ãã使ãã¾ãã Line Input #çªå·, å¤æ° Sub Sample1() Dim buf As String Open "C:\Sample\Data.txt" For Input As #1 Line Input #1, buf MsgBox buf Close #1 End Sub Line Inputã¹ãã¼ãã¡ã³ãã¯ã1è¡åã®ãã¼ã¿ãèªã¿è¾¼ãã¨ãèªã¿åããã¤ã³ãã次ã®è¡ã«ç§»ãã¾ããã¤ã¾ããLine Inputã¹ãã¼ãã¡ã³ããç¹°ãè¿ããã¨ã§ãããã¹ããã¡ã¤ã«ã®ä¸ãã1è¡ãã¤ããã¹ã¦èªã¿è¾¼ããã¨ã
{{#tags}}- {{label}}
{{/tags}}