Module/多次元文字列配列の読み書き

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
-
|
|
|
|
|
|
|
|
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 

#ifndef __MOD_STRARRAY_AS
#DEFINE __MOD_STRARRAY_AS
 
#module "mod_strarray"
 
#define ctype QUEUE(%1,%2) ((%1)==(%2)-1) ; p1 が p2-1 かどうか
 
#define global strsave(%1,%2,%3,%4=0) strarraysave %1,%2,%3,%4
#deffunc strarraysave str p1, var p2, int p3, int p4
    ;	多次元文字列配列の内容をファイルに書き出す。
    ;		p1    : ファイル名
    ;		p2    : 文字列型変数( 多次元配列,配列要素も可 )
    ;		p3    : 作成フラグ( -1=新規/0〜上書きオフセット )
    ;		p4(0) : csvモード( 0=off/1=on )
    ;	*** NOTE ***
    ;		mod_pval.hspをインクルードすること
    getpval pval, p2
    aptr = getaptr( p2 )
 
    if wpeek( pval, 0 ) != vartype("str"): return -1 ; 型チェック
 
    dupptr master, pval.8, pval.6
    master.0 = pval.7
 
    buf = "": d1 = 0: d2 = 0: d3 = 0: d4 = 0
 
    repeat pval.6 / 4 - aptr, aptr
        buf += strf( "%s", master.cnt )
        if p4 == 0{
            // normal mode
 
            buf += "\n"
        }else{
            // csv mode
 
            if pval.2 != 0: d1 = cnt \ pval.2
;			if pval.3 != 0: d2 = cnt / pval.2 \ pval.3
;			if pval.4 != 0: d3 = cnt / ( pval.2*pval.3 ) \ pval.4
;			if pval.5 != 0: d4 = cnt / ( pval.2*pval.3*pval.4 ) \ pval.5
 
            if(QUEUE(d1,pval.2)): buf += "\n": else: buf += ","
 
;	仕様を決められないのでとりあえず区切りなしで出力
;			if(QUEUE(d1,pval.2)&QUEUE(d2,pval.3)): buf += "\n"
;			if(QUEUE(d1,pval.2)&QUEUE(d2,pval.3)&QUEUE(d3,pval.4)): buf += "\n"
;			if(QUEUE(d1,pval.2)&QUEUE(d2,pval.3)&QUEUE(d3,pval.4)&QUEUE(d4,pval.5)): buf += "\n"
 
        }
        await
    loop
 
    bsave p1, buf, strlen( buf ), p3
 
    return 0
#global
#endif

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44

#include "mod_pval.hsp" ; pvalモジュールが先
#include "mod_strarray.as"
 
#define ctype fname(%1) "strsave"+%1+".txt"
 
    ; 文字列配列全体をファイルに書き出す
    repeat 2 ; 0=normal/1=csv
        fpos = -1
        sdim s ; 次元をクリア
    
        // 文字列変数
        s = "HSP3"
        strsave fname(cnt), s, fpos, cnt: fpos = strsize
    
        // 一次元文字列配列
        s.0 = "hhh","sss","ppp"
        strsave fname(cnt), s, fpos, cnt: fpos += strsize
        
        // 二次元文字列配列
        s.0.1 = "length2","length3","length4"
        strsave fname(cnt), s, fpos, cnt: fpos += strsize
 
        // 四次元文字列配列
        m0 = 64: m1 = 20: m2 = 2: m3 = 3: m4 = 4
        sdim s, m0, m1, m2, m3, m4
        repeat m1*m2*m3*m4
            d1 = cnt\m1
            d2 = cnt/m1\m2
            d3 = cnt/(m1*m2)\m3
            d4 = cnt/(m1*m2*m3)\m4
            s.d1.d2.d3.d4 = ""+cnt
        loop
        strsave fname(cnt), s, fpos, cnt: fpos += strsize
    loop
    mes "step1 comp."
 
    ; 文字列配列の途中の要素からファイルに書き出す
    sdim s, 64, 5 ; 一次元文字列配列
    s = "a","b","c","d","e"
 
    repeat 2
        strsave "abc"+cnt+".txt", s.2, -1, cnt
    loop
    mes "step2 comp."