2 BASIC DATA DATA DATA DATA Data BASIC tbasic 1 File OS OS 2 (0, 1) OS 0,1 0,1 2 USB OS

Size: px

Start display at page:

Download "2 BASIC DATA DATA DATA DATA Data BASIC tbasic 1 File OS OS *2 (0, 1) OS 0,1 0,1 *2 USB OS"

かずきくだら
5 years ago
Views:

1 Tiny Basic for Windows tbasic.org * 1 [ ] Tiny Basic for Windows tbasic WriteAllLines ReadAllLines WriteAllText ReadAllText Open Input Output Append Close *1 1

2 2 BASIC DATA DATA DATA DATA Data BASIC tbasic 1 File OS OS *2 (0, 1) OS 0,1 0,1 *2 USB OS

3 3 1.1 : *3 8 *4 *5 OS MS-DOS Windows CR+LF Mac CR 13 Unix LF 10 *3 Character Encoding *4 8 7 *5 ASCII

4 4 OS OS OS FTP OS OS jpeg gif OS windows mac Unix OS tbasic TBasic.exe Windows TBasic.exe Mac Linux tbasic

5 ASCII ASCII American Standard Code for Information Interchange ASCII 128 ASCII NUL 16 DLE 32 SP P p 1 1 SOH 17 DC1 33! A 81 Q 97 a 113 q 2 2 STX 18 DC2 34 " B 82 R 98 b 114 r 3 3 ETX 19 DC3 35 # C 83 S 99 c 115 s 4 4 EOT 20 DC4 36 $ D 84 T 100 d 116 t 5 5 ENQ 21 NAK 37 % E 85 U 101 e 117 u 6 6 ACK 22 SYN 38 & F 86 V 102 f 118 v 7 7 BEL 23 ETB G 87 W 103 g 119 w 8 8 BS 24 CAN 40 ( H 88 X 104 h 120 x 9 9 HT 25 EM 41 ) I 89 Y 105 i 121 y a 10 LF 26 SUB 42 * 58 : 74 J 90 Z 106 j 122 z b 11 VT 27 ESC ; 75 K 91 [ 107 k 123 { c 12 FF 28 FS 44, 60 < 76 L 92 \ 108 l 124 d 13 CR 29 GS = 77 M 93 ] 109 m 125 } e 14 SO 30 RS > 78 N 94 ˆ 110 n 126 f 15 SI 31 US 47 / 63? 79 O o 127 DEL 32 SP ASCII ASCII JIS X

6 6 ASCII a b c d e f IBM PC 437 ASCII ASCII IBM PC Ç 144 É 160 á α ü 145 æ 161 í β 241 ± é 146 Æ 162 ó Γ â 147 ô 163 ú π ä 148 ö 164 ñ Σ à 149 ò 165 Ñ σ å 150 û 166 a µ ç 151 ù 167 O τ ê 152 ÿ Φ ë 153 Ö Θ 249 a 138 é 154 Ü Ω 250 b 139 ï ½ δ 251 c 140 î ¼ n d 141 í φ e 142 Ä 158 Pts ε 254 f 143 Å 159 f OS MSDOS ASCII 171 PCDOS ASCII 171 ½

7 ASCII ASCII = Coded Character Set 1969 JIS X 0201 ASCII JIS X JIS X 0213 JIS X * OS JIS X 0213 *7 JIS X JIS X A +B +C +D +E +F 0 <SP>,. : ;?! 16? = 80 * *7 JIS X 0213 JIS X 0208

8 8 JIS X A +B +C +D +E +F JIS X A +B +C +D +E +F JIS X 0213 JIS X The Unicode Consortium 1991 Unicode Standard 7, Version ,021 *8 * 9* Basic Multilingual Plane BMP *8 JIS X 0213 *9 *10

9 9 U+0000 U+FFFF 1 U U+1FFFF 2 U U+2FFFF 3 U U+3FFFF 14 U+E0000 U+EFFFF 15 U+F0000 U+FFFFF 16 U U+10FFFF U+ 672C U+672C JIS X Character Encoding * 11 JIS X 0208 JIS X 0213 (1) JIS JIS X 0208 ISO-2022-JP JIS X 0213 ISO-2022-JP-2004 (2) Shift_JIS JIS X 0208 Shift_JIS DOS Windows * 12 JIS X 0213 Shift_JIS-2004 *11 BOM:Byte Order Mark *12 Windows Shift_JIS JIS X 0208 JIS X 0213 JIS X 0213

10 10 JIS (3) EUC EUC Extended Unix Code UNIX Linux JIS X 0208 EUC-JP JIS X 0213 EUC-JIS-2004 (1) UTF8 UTF8 Linux OS (2) UTF16 UTF16 16 Windows OS UTF16 (3) UTF32 UTF tbasic 437 IBM437 IBM ASCII 932 shift_jis (Shift-JIS) 1200 utf-16 Unicode UTF-16, little endian 1201 unicodefffe Unicode UTF-16, big endian 1252 ASCII windows-1252, ANSI Latin EUC-JP (EUC) iso-2022-jp (JIS) utf-8 Unicode (UTF-8)

11 Windows / :? < > MS-DOS 8 * 13 Windows Test.txt Test.doc Test.dat Test.txt txt Test.doc doc Test.dat dat *13 ASCII

12 12 Windows * 14 * Windows txt exe doc Word 2003 docx Word 2007 xls Excel 2003 xlsx Excel 2007 jpg jpeg csv tbt tbasic html HTML htm HTML pdf Adobe * 16 3 MSDOS 3 Windows 3 Windows * 17 Windows *14 Windows *15 Windows 8.1 *16 html *17

13 13 tbasic tbasic tbt t basic text tbasic tbt tbasic tbt TBasic.exe tbt tbasic * tbasic tbasic tbasic tbasic tbasic tbasic tbasic *18 tbasic tbt txt

14 14 tbasic OS csv web html

15 USB OS OS OS OS (1) * 19 (2) (3) Open Read Close Open Write Print Close Open Close *19 Queue Queue

16 tree * 20 root C C: tbasic set C Local TBasic * 21 C: Local TBasic BTutor.chm TBasic.exe TBasic.ini TBWHelp.chm TBWHelp.chw doc TinyBasic 12.pdf TinyBsasic 12.pdf sample Calendar.tbt Direct.tbt Game 15game.tbt Biorhythm.tbt Graphic ColorNo.tbt ColorSample.tbt Unicode ANK.tbt CJK.tbt FrenchGermanInput.tbt Helloworldtbt.tbt ANK.tbt *20 MS-DOS Linux Windows MS-DOS *21

17 17 C Local TBasic sample Unicode ANK.tbt C: Local TBasic sample Unicode ANK.tbt * 22 path TBasic winuser C: Users winuser Documents ANK.tbt C: Users winuser Documents TBasic sample Unicode ANK.tbt current Windows *22 C: LOCAL TBASIC SAMPLE UNICODE ANK.TBT

18 18 winuser TBasic Unicode * 23 ANK.tbt ANK.tbt.. Calendar.tbt.. Calendar.tbt Game 15game.tbt.. Game 15game.tbt TBasic.exe.... TBasic.exe C: Users winuser Documents TBasic sample Unicode ANK.tbt C: Users winuser Documents TBasic sample Calendar.tbt C: Users winuser Documents TBasic sample Game 15game.tbt C: Users winuser Documents TBasic TBasic.exe *23 Unicode C: Users winuser Documents TBasic sample Unicode

19 19 tbasic tbasic tbasic tbasic tbasic tbasic GetCurrentDir GetProgramDir ChDir 2.1 ( ). CDirBackup$=GetCurrentDir ChDir GetProgramDir ChDir CDirBackup : End End

20 20 3 Open Read(Write) Close Read(Write) Open Close.NET tbasic 3.1 WriteAllLines ReadAllLines tbasic WriteAllLines WriteAllLines WriteAllLines WriteAllLines(FileName, Lines()) WriteAllLines(FileName, Lines(), Encoding) WriteAllLines FileName Lines() tbasic Lines(0) * 24 Val(Lines(0)) Lines(1) Lines Encoding Encoding Encoding * 25 Encoding *24 Visual Basic *25 Encoding tbasic Shift-JIS SetEncoding

21 (). 010 CDirBackup$=GetCurrentDir 020 ChDir GetProgramDir Dim TLines$(1000) 050 FN$="Test.txt" 060 TLines$(1)= "1 " 070 TLines$(2)= "2 " 080 TLines$(0)= Str$(2) 090 WriteAllLines(FN$,TLines$()) ChDir CDirBackup$ 120 End. WTest.tbt GetProgramDir 10, Str$ Str$(2) 90 Test.txt Test.txt

22 22 ReadAllLines ReadAllLines ReadAllLines RLines()=ReadAllLines(FileName) RLines()=ReadAllLines(FileName, Encoding) ReadAllLines FileName RLines RLines * 26 Encoding Encoding Encoding Encoding Test.txt CDirBackup$=GetCurrentDir 020 ChDir GetProgramDir Dim RL$(10000) 050 FN$="Test.txt" 060 RL$()=ReadAllLines(FN$) 070 For i=1 to Val(RL$(0)) 080 Print RL$(i) 090 Next i ChDir CDirBackup$ 120 End. RTest.tbt Test.txt GetProgramDir 10, RL$ Text.txt RL$ RL$(0) *26 Visual Basic

23 For Val(RL$(0)) For i=1 to Val(RL$(0)) i RL$(i) OK 3.2 WriteAllText ReadAllText ASCII WriteAllText WriteAllText WriteAllText(FileName, Text) WriteAllText(FileName, Text, Encoding) WriteAllText FileName Text Encoding Encoding Encoding ReadAllText ReadAllText RT$=ReadAllText(FileName) RT$=ReadAllText(FileName, Text, Encoding)

24 24 ReadAllText FileName RT$Encoding Encoding Encoding WriteAllText ReadAllText Encoding FNS$ FNT$ * ( ). CDirBackup$=GetCurrentDir ChDir GetProgramDir FNS$="STest.txt" FNT$="TTest.txt" A$="" B$=" " RL$=ReadAllText(FNS$) WT$=Replace$(RL$,A$,B$) WriteAllText(FNT$,WT$) ChDir CDirBackup$ End 3.3 Open Close WriteAllLines ReadAllLinse WriteAllLines ReadAllLines *27 STest.txt

25 25 4 (1) (2) (1) * Open Open tbasic tbasic open open Open (1) Open for input as # (2) Open for output as # (3) Open for append as # 1 8 * K

26 26 (1) (2) (3) 4.1 ((1) Open). Open "test.dat" for input as #1 test.dat test.dat 4.2 ((2) Open). Open "test2.dat" for output as #2 test2.dat test2.dat test2.dat output test2.dat 4.3 ((3) Open). Open "test3.dat" for append as #3 test3.dat test2.dat 4.2 Input Open tbasic open

27 27 Eof Eof Eof Eof() True False Eof Open "test.dat" for input as #1 If not Eof(1) then End if Open "test.dat" for input as #1 While not Eof(1) Wend Input # Line Input # Input # Line Input # Input # Input # Input #

28 Open "test.dat" for input as #1 While not Eof(1) Input #1, N Print N Wend test.dat test.dat Input # 123, 456, 789, , 34, 111 Input # Input # 4.5. Open "test2.dat" for input as #1 While not Eof(1) Input #1, S$ Print S$ Wend test2.dat test2.dat 123 abc 789, "34 56" 234x c 123, abc, "789, 012" 12 "34, 56" 234x, c

29 29 Input # Input # LineInput # LineInput # LineInput # 4.6. Open "test2.dat" for input as #1 While not Eof(1) Line Input #1, L$ Print L$ Wend test2.dat test2.dat 123, abc, "789, 012" 12 "34, 56" 234x, c 123, abc, "789, 012" 12 "34, 56" 234x, c 4.3 Output Open Print # Print Print Print # 4.7. Open "NTable.txt" for output as #1 For I=1 to 10 Print #1,I, I*I, sqr(i) Next I Close

30 NTable.txt 4.8. Open "NTable2.txt" for output as #1 For I=1 to 10 Print #1,I;",";Tab(10); I*I;",";Tab(20); sqr(i) Next I Close NTable2.txt 1, 1, 1 2, 4, , 9, , 16, 2 5, 25, , 36, , 49, , 64, , 81, 3 10, 100, Append Open Open 4.9. Open "NTable2.txt" for append as #1 For I=11 to 20 Print #1,I;",";Tab(10); I*I;",";Tab(20); sqr(i) Next I Close

31 31 NTable2.txt 1, 1, 1 2, 4, , 9, , 16, 2 5, 25, , 36, , 49, , 64, , 81, 3 10, 100, , 121, , 144, , 169, , 196, , 225, , 256, 4 17, 289, , 324, , 361, , 400, Close Open Close Close Close Close Close Close Close # Close #1 Close Close

32 GOTO test1.tbt test1.tbt For I=1 to 10 Print I*I Next I End = test2.tbt 01 test1.tbt 02 For I=1 to Print I*I 04 Next I 05 End 0 i 4 i 0 4 Right$(Str$(10000+i),4) Right$("000"+Trim$(Str$(i)),4) * 29 *29 Str$(i) i 1 Str$(3)=" 3" Trim$(Str$(i))

33 ( ) CDirBackup$=GetCurrentDir 03 ChDir GetProgramDir Dim InF$(1000) 06 Dim OutF$(1000) 07 InFName$ ="test1.tbt" 08 OutFName$="test2.tbt" 09 Keta=2 10 InF$()=ReadAllLines(InFName$) 11 OutF$(0)=InF$(0) 12 Gyousu=Val(InF$(0)) 13 DCounter = 10ˆKeta For i=1 to Gyousu 16 OutF$(i)= Right$(Str$(DCounter+i),Keta)+" "+InF$(i) 17 Next i 18 WriteAllLines(OutFName$,OutF$()) ChDir CDirBackup$ 21 End InFName$ InF$ 13 Keta 0 16 OutF$(i) 19 OutF$ 10 test1.tbt test1.tbt For I=1 to 10 Print I*I Next I End = test2.tbt 010 test1.bas 020 For I=1 to Print I*I 040 Next I 050 End 09 Keta=3 15 OutF$(i)= Right$(Str$(DCounter+i*10),Keta)+" "+InF$(i) 2

34 () CDirBackup$=GetCurrentDir 03 ChDir GetProgramDir Dim InF$(1000) 06 Dim OutF$(1000) 07 InFName$="test2.tbt" 08 OutFName$="test1.tbt" 09 Keta=2 10 InF$()=ReadAllLines(InFName$) 11 OutF$(0)=InF$(0) 12 Gyousu=Val(InF$(0)) For i=1 to Gyousu 16 LenofLine = Len(InF$(i)) 17 OutF$(i)= Right$(InF$(i),LenofLine-Keta-1) 18 Next i 19 WriteAllLines(OutFName$,OutF$()) ChDir CDirBackup$ 22 End Keta+1 Keta+1 BASIC

35 tbasic BASIC BASIC tbasic (1) (2) (3) Excel BASIC Excel Excel Excel VBA BASIC VBA(Visual Basic for Applications) VBA Excel

36 36 Excel BASIC BASIC Excel 5.2.2,80,90,80 csv (Comma Separated Value) Excel csv

37 37 simei.txt Excel seiseki.csv,80,90,80,70,50,60,65,70,50,50,45,90 simei.txt 3 10,80,90,80,70,65,80,90,90,80,70 EInput.txt : : : : : : : : EInput.txt : :80 : :70 : :65 : :50 MInput.txt JInput.txt seiseki.csv

38 38 EInput.txt : :80 : :70 : :65 : :50 MInput.txt : :90 : :50 : :70 : :45 seiseki.csv,80,90,80,70,50,60,65,70,50,50,45,90 JInput.txt : :80 : :60 : :50 : :90 simei.txt EInput.txt MInput.txt JInput.txt 5.3 ( ). 01 simei.txt EInput.txt MInput.txt JInput.txt 02 CDirBackup$=GetCurrentDir 03 ChDir GetProgramDir Dim S$(1000) 06 Dim EI$(1000) 07 Dim MI$(1000) 08 Dim JI$(1000) 09 S$()=ReadAllLines("simei.txt") 10 For i=1 to Val(S$(0)) 11 EI$(i)=S$(i)+": :" 12 MI$(i)=S$(i)+": :" 13 JI$(i)=S$(i)+": :" 14 Next i 15 EI$(0)=S$(0) 16 MI$(0)=S$(0) 17 JI$(0)=S$(0) 18 WriteAllLines("EInput.txt",EI$()) 19 WriteAllLines("MInput.txt",MI$()) 20 WriteAllLines("JInput.txt",JI$()) ChDir CDirBackup$ 23 End simei.txt S$ EInput.txt MInput.txt JInput.txt EI$ MI$ JI$

39 39 9 simei.txt S$ Val(S$(0)) EInput.txt MInput.txt JInput.txt csv Excel tbasic Split$ * 30*31 Split$ Split$ Split$ Split$(A$,B$) A$ Split$(A$,B$) A$ B$ A$ A$=" : :80" : 80 A$=" : :80" A1$=Split$(A$,":") A2$=Split$(A$,":") Print A1$ Print A2$ Print A$ 80 : A$=" :80" : A$="80" *30 Visual BASIC Split tbasic *31 Split$ BASIC

40 40 EInput.txt MInput.txt JInput.txt seiseki.csv 5.4 ( ). 01 EInput.txt MInput.txt JInput.txt seiseki.csv 02 CDirBackup$=GetCurrentDir 03 ChDir GetProgramDir Dim SA$(1000) 06 Dim EI$(1000) 07 Dim MI$(1000) 08 Dim JI$(1000) 09 EI$()=ReadAllLines("EInput.txt") 10 MI$()=ReadAllLines("MInput.txt") 11 JI$()=ReadAllLines("JInput.txt") 12 Ninnzu = Val(EI$(0)) 13 For i=1 to Ninnzu 14 Tmp$=EI$(i) 15 SimeiT$=Split$(Tmp$,":") 16 Dummy$=Split$(Tmp$,":") 17 SeisekiE$=Tmp$ 18 Tmp$=MI$(i) 19 Dummy$=Split$(Tmp$,":") 20 Dummy$=Split$(Tmp$,":") 21 SeisekiM$=Tmp$ 22 Tmp$=JI$(i) 23 Dummy$=Split$(Tmp$,":") 24 Dummy$=Split$(Tmp$,":") 25 SeisekiJ$=Tmp$ 26 SA$(i)=SimeiT$+","+SeisekiE$+","+SeisekiM$+","+SeisekiJ$ 27 Next i 28 SA$(0)=Str$(Ninnzu) 29 WriteAllLines("Seiseki.csv",SA$()) ChDir CDirBackup$ 32 End seiseki.csv SA$ EInput.txt MInput.txt JInput.txt EI$ MI$ JI$ EInput.txt MInput.txt JInput.txt EI$ MI$ JI$ Val(EI$(0)) Val(MI$(0)) Val(JI$(0)) EInput.txt SimeiT$ SeisekiE$ MInput.txt SeisekiM$ JInput.txt SeisekiJ$ 26 seiseki.csv csv, 28 seiseki.csv 29 seiseki.csv

41 ,80,90,80,70,50,60,65,70,50,50,45,90... seiseki.csv kekka.csv kekka.csv,80,90,80,250,1,70,50,60,180,4,65,70,50,185,2,50,45,90,185, goukeininzu(i) i NinzuGE(i) i Dim goukeininzu(300) Dim NinzuGE(300) 1 3

42 ( ). 01 seiseki.csv kekka.csv 02 CDirBackup$=GetCurrentDir 03 ChDir GetProgramDir Dim SA$(1000) 06 Dim goukeiten(1000) 07 Dim goukeininzu(300) 08 Dim NinzuGE(300) SA$()=ReadAllLines("seiseki.csv") 11 Ninzu= Val(SA$(0)) 12 For i=1 to Ninzu 13 L$ = SA$(i) 14 Simei$ = Split$(L$,",") 15 Eng = Val(Split$(L$,",")) 16 Math = Val(Split$(L$,",")) 17 Jpn = Val(Split$(L$,",")) 18 Total= Eng + Math + Jpn 19 goukeiten(i) = Total 20 goukeininzu(total)=goukeininzu(total)+1 21 Next i 22 goukeininzu(total) Total NinzuGE(300)=goukeiNinzu(300) 26 For i=299 to 0 step NinzuGE(i)=goukeiNinzu(i)+NinzuGE(i+1) 28 Next i 29 NinzuGE(i) i For i=1 to Ninzu 32 Total = goukeiten(i) 33 If Total=300 then 34 jyun = 1 35 Else 36 jyun = NinzuGE(Total+1)+1 37 End if 38 SA$(i)=SA$(i)+","+Str$(Total)+","+Str$(jyun) 39 Next i 40 WriteAllLines("kekka.csv",SA$()) ChDir CDirBackup$ 43 End seiseki.csv SA$ Total 19 i goukeiten(i) 20 Total i NinzuGE(i) Total kekka.csv

43 43 Excel seiseki.csv kekka.csv BASIC Excel Word : : : : : : : : 80 : 90 : : 250 : temp.txt temp.txt

44 ( ). 01 kekka.csv temp.txt kohyo.csv 02 CDirBackup$=GetCurrentDir 03 ChDir GetProgramDir Dim SA$(1000) 06 Dim KA$(10000) 07 Dim TP$(100) SA$()=ReadAllLines("kekka.csv") 10 TP$()=ReadAllLines("temp.txt") 11 Ninzu=Val(SA$(0)) 12 Kousu=Val(TP$(0)) 13 Counter= For i=1 to Ninzu 16 L$=SA$(i) 17 Simei$ = Split$(L$,",") 18 Eng$ = Split$(L$,",") 19 Math$ = Split$(L$,",") 20 Jpn$ = Split$(L$,",") 21 Total$ = Split$(L$,",") 22 jyun$ = Split$(L$,",") 23 For j=1 to Kousu 24 L$=TP$(i) 25 L$ = Replace$(L$,"@SIMEI",Simei$) 26 L$ = Replace$(L$,"@EIGO",Eng$) 27 L$ = Replace$(L$,"@SUUGAKU",Math$) 28 L$ = Replace$(L$,"@KOKUGO",Jpn$) 29 L$ = Replace$(L$,"@GOUKEI",Total$) 30 L$ = Replace$(L$,"@JYUN",jyun$) 31 KA$(Counter)=L$ 32 Counter = Counter Next j 34 KA$(Counter)="" 35 Counter = Counter KA$(Counter)="" 37 Counter = Counter Next i KA$(0)=Str$(Counter -1) 41 WriteAllLines("kohyo.txt",KA$()) ChDir CDirBackup$ 44 End seiseki.csv SA$ 10 temp.txt TP$ "SIMEI" 31 KA$(Counter) 41 kohyo.txt

45 : : 80 : 90 : : 250 : : : 70 : 50 : : 180 : kohyo.txt TEX html 4 * 32 *32

¥ƥ¥¹¥ȥ¨¥ǥ£¥¿¤λȤ¤˽

¥ƥ¥¹¥ȥ¨¥ǥ£¥¿¤λȤ¤˽ : 2010 2 14 1 MS Word.doc (MS Word 2003 ).docx (MS Word 2007 ) Word Windows.txt MS Word Word Word Word Excel Word 1 Word Word Word MS Word MS Word MS Word Word Windows MS Word MS Word Word Windows.txt