>>TestOn:UWSCR<< >>Title: １. 　疑似１次元配列Test用　　 Base Loop Components << >>LoopCt:<< >>LoopStart:1<< >>SetUp: << >>Reset: << >>TestCase: b = ((a-1) Mod 100) + 1 << >>Closing: << >>Function: << /////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: １a 　疑似１次元配列　書込み １００要素　<< >>LoopCt:<< >>LoopStart:1<< >>SetUp: Public TestAry PM_Initialize("TestAry", 100) << >>Reset: << >>TestCase: FPUT(TestAry, a,(((a-1) Mod 100) + 1)) << >>Closing: FCLOSE(TestAry) << >>Function: PROCEDURE PM_Initialize(Nm : String, M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << /////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: １b 　疑似１次元配列　書込み ２００要素　<< >>LoopCt:<< >>LoopStart:1<< >>SetUp: Public TestAry PM_Initialize("TestAry", 200) << >>Reset: << >>TestCase: FPUT(TestAry, a,(((a-1) Mod 200) + 1)) << >>Closing: FCLOSE(TestAry) << >>Function: PROCEDURE PM_Initialize(Nm : String, M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << /////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: １c 　疑似１次元配列　書込み ５００要素　<< >>LoopCt:<< >>LoopStart:1<< >>SetUp: Public TestAry PM_Initialize("TestAry", 500) << >>Reset: << >>TestCase: FPUT(TestAry, a,(((a-1) Mod 500) + 1)) << >>Closing: FCLOSE(TestAry) << >>Function: PROCEDURE PM_Initialize(Nm : String, M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << /////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: １d 　疑似１次元配列　書込み １０００要素　<< >>LoopCt:<< >>LoopStart:1<< >>SetUp: Public TestAry PM_Initialize("TestAry", 100) << >>Reset: << >>TestCase: FPUT(TestAry, a,(((a-1) Mod 100) + 1)) << >>Closing: FCLOSE(TestAry) << >>Function: PROCEDURE PM_Initialize(Nm : String, M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << ////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: ２. 　疑似２次元配列Test用　　　Base Loop Components << >>LoopCt:<< >>LoopStart:1<< >>SetUp: << >>Reset: << >>TestCase: M = ((a-1) Mod 100) +1 N = ((a-1) Mod 10) << >>Closing: << >>Function: PROCEDURE PM_Initialize(Nm : String, M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << /////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: ２a 　疑似２次元配列　書込み １００要素　＊１０　<< >>LoopCt:<< >>LoopStart:1<< >>SetUp: Public TestAry PM_Initialize("TestAry", 100,10, 0) << >>Reset: << >>TestCase: FPUT(TestAry, a,(((a-1) Mod 100) +1),((a-1) Mod 10) + 1) << >>Closing: FCLOSE(TestAry) << >>Function: PROCEDURE PM_Initialize(Nm , M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << /////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: ２b 　疑似２次元配列　書込み ２００要素　＊１０　<< >>LoopCt:<< >>LoopStart:1<< >>SetUp: Public TestAry PM_Initialize("TestAry", 200,10, 0) << >>Reset: << >>TestCase: FPUT(TestAry, a,(((a-1) Mod 200) +1),((a-1) Mod 10) + 1) << >>Closing: FCLOSE(TestAry) << >>Function: PROCEDURE PM_Initialize(Nm : String, M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << /////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: ２c 　疑似２次元配列　書込み ５００要素　＊１０　<< >>LoopCt:<< >>LoopStart:1<< >>SetUp: Public TestAry PM_Initialize("TestAry", 500,10, 0) << >>Reset: << >>TestCase: FPUT(TestAry, a,(((a-1) Mod 500) +1),((a-1) Mod 10) + 1) << >>Closing: FCLOSE(TestAry) << >>Function: PROCEDURE PM_Initialize(Nm : String, M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << /////////////////////////////////////////////////////// >>TestOn:UWSCR<< >>Title: ２d 　疑似２次元配列　書込み １０００要素　＊１０　<< >>LoopCt:<< >>LoopStart:1<< >>SetUp: Public TestAry PM_Initialize("TestAry", 1000,10, 0) << >>Reset: << >>TestCase: FPUT(TestAry, a,(((a-1) Mod 1000) +1),((a-1) Mod 10) + 1) << >>Closing: FCLOSE(TestAry) << >>Function: PROCEDURE PM_Initialize(Nm : String, M, N="", D = "") // Nmは予めPublic宣言した配列の名前の文字列　　　M,Nは行数と列数、0ではなく、１からスタート , DはSetClearと同じ埋める値 Eval("If FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_EXISTS) Then DELETEFILE(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ")") 　Eval( Nm + " := FOPEN(" + CHR(34) + "C:\Users\Public\Documents\PMtx" + Nm + ".tsv" + CHR(34) + ", F_Write or F_Read or F_TAB)") If N Then FillC = D + (CHR(9) + D) * (N -1) Else FillC = D For k = 1 to M Eval("FPUT(" + Nm + ",FillC,　k)") Next FEND << ///////////////////////////////////////////////////////