ABXS取得関数(プロデル版β)

作品プログラム
動作環境
投稿者
あおと [a32kitaあっとまーくlive.jp]
投稿日
2013-09-06 01:28:16
ダウンロード数
444

作品のプログラム

テストファイルというABXSオブジェクトを作る
テストファイルのファイル名を「test.txt」へ変える

’「データ2」と表示されるはずです
テストファイルから「SESSION1\SESSION2\DATA2」を読み込んだものを表示

終了

ABXSオブジェクトとは
  ファイル内容を持つ
  ファイルパスを持つ
  
  +確認コード:文字列=「Group B-Explorers」
  
  はじめの手順
    ファイルパスは、「」
  終わり
  
  ファイル名という属性
    設定する手順
      ファイルパスは、設定値
      ファイル内容は、(設定値から読み込んだもの)から改行を「」へ置換したもの
      ファイル内容は、ファイル内容からタブを「」へ置換したもの
      
      ’ファイル内容の行数&「行に変換されました。」を表示
      ’ファイル内容を表示
    終わり
    取得する手順
      ファイルパスで抜ける
    終わり
  終わり
  
  
  [自分]から、[キーパス]を、セッションとして、読み込む手順
    データソース(1)は、このファイル内容
    ’データソース(1)を表示
    
    もし (キーパスから1文字末尾から取り出したもの)は 「\」 でないなら
      「DATA(STATUS)="ERROR";」で抜ける
    もし終わり
    
    キー配列は、キーパスを「\」で区切ったもの
    キー階層は、(キー配列の個数)-1
    キーカウンタは、1
    
    [キー階層]回、繰り返す
      ’対象のセッションの内容を抜き出す
      キーカウンタは、キーカウンタ+1
      ターゲットキーは、キー配列(キーカウンタ-1)
      ’ターゲットキーを表示
      
      データソース(キーカウンタ)は、[データソース(キーカウンタ-1)から「SC\([ターゲットキー]\){(.*|\n*)}\([ターゲットキー]\);」という正規表現で取り出したもの](1)
      データソース(キーカウンタ)は、「\\」&改行&データソース(キーカウンタ)&改行&改行から「\\」&改行&「SC([ターゲットキー]){」を「」へ置換したもの
      データソース(キーカウンタ)は、データソース(キーカウンタ)から「}([ターゲットキー]);」&改行&改行を「」へ置換したもの
      ’データソース(キーカウンタ)を表示
    繰り返し終わり
    
    データソース(キーカウンタ)で抜ける
  終わり
  
  [自分]から、[キーパス]を、読み込む手順
    もし (キーパスから1文字末尾から取り出したもの)は 「\」 なら
      「ERROR」で抜ける
    もし終わり
    
    ローカルキー配列は、キーパスを「\」で区切ったもの
    データソース(1)は、このファイル内容
    
    【ローカルキーカウンタ:配列】
    
    ローカルキーカウンタ(1)は、「」
    ローカルキーカウンタ(1)は、ローカルキー配列の個数
    ローカルキーカウンタ(2)は、0
    
    セッションパスは、「」
    
    繰り返せ
      ローカルキーカウンタ(2)は、ローカルキーカウンタ(2)+1
      もし ローカルキーカウンタ(2)は ローカルキーカウンタ(1) なら 繰り返しから抜ける
      
      セッションパスは、セッションパス&ローカルキー配列(ローカルキーカウンタ(2))&「\」
    繰り返し終わり
    
    結果は、自分からセッションパスをセッションとして読み込んだもの
    
    ’ローカルキーカウンタ(1)&「DATA([ローカルキー配列(ローカルキーカウンタ(1))])="」を「セッション取得後」として表示
    
    結果は、結果から「DATA([ローカルキー配列(ローカルキーカウンタ(1))])="」を改行へ置換したもの
    結果は、結果から2行目を一行だけ
    結果は、結果から「";」を改行へ置換したもの
    ’結果を表示
    結果は、結果から1行目を一行だけ
    結果で抜ける
  終わり
終わり
	

▲ページの先頭へ