$ZSEEK (ObjectScript)

Synopsis

$ZSEEK(offset,mode)

概要

$ZSEEK は、現在のデバイスに新しい offset を設定します。現在のデバイスは、シーケンシャル・ファイルである必要があります。現在のデバイスがシーケンシャル・ファイルではない場合、$ZSEEK は <FUNCTION> エラーを発行します。

mode 引数は、offset の基点にするポイント (先頭、現在位置、または末尾) を決定します。

$ZSEEK は、オフセットを実行した後にファイル内での現在位置を返します。引数なしの $ZSEEK は、オフセットを実行せずにファイル内での現在位置を返します。

$ZSEEK は、デバイスがシーケンシャル・ファイルの場合にのみ使用できます。ターミナルから、または開いているシーケンシャル・ファイルがない場合に $ZSEEK を呼び出すと、<FUNCTION> エラーが返されます。現在のデバイスを特に設定していない場合、$ZSEEK はデバイスが主デバイスであると見なします。

$ZIO 特殊変数は、現在のファイルのパス名を含みます。$ZPOS 特殊変数は、現在のファイル位置を含みます。これは、$ZSEEK(0,1) または $ZSEEK() (引数なし) で返される値と同じです。

引数

例

以下の Windows の例では、シーケンシャル・ファイルを開いて "AAA" を書き込み、$ZSEEK(10) で、ファイルの先頭から 10 文字の位置にオフセットを設定します (7 個の空白を入力します)。続いて、その位置に "BBB" を書き込んでから、引数なしの $ZSEEK() によって、ファイルの先頭からの結果のオフセット (この場合は 13) を返します。

  SET $TEST=0
  SET myfile="C:\InterSystems\IRIS\mgr\user\zseektestfile.txt"
  OPEN myfile:("WNS"):10
    IF $TEST=0 {WRITE "OPEN failed" RETURN}
  USE myfile
  WRITE "AAA"
  SET rtn=$ZSEEK(10) 
  WRITE "BBB"
  SET rtnend=$ZSEEK()
  CLOSE myfile
  WRITE "set offset:",rtn," end position:",rtnend

以下の Windows の例では、シーケンシャル・ファイルに文字 "A" を 10 回書き込み、そのたびに、文字間に挿入する空白スペースを増やします。ここでは、$ZPOS を使用して、現在のファイル位置を判断しています。

  SET $TEST=0
  SET myfile="C:\InterSystems\IRIS\mgr\user\zseektestfile2.txt"
  OPEN myfile:("WNS"):10
    IF $TEST=0 {WRITE "OPEN failed" RETURN}
  USE myfile
  FOR i=1:1:10 {WRITE "A" SET rtn=$ZSEEK($ZPOS+i,0)}
  CLOSE myfile

関連項目

• OPEN コマンド

• USE コマンド

• CLOSE コマンド

• $ZIO 特殊変数

• $ZPOS 特殊変数

• "入出力デバイス・ガイド" の "シーケンシャル・ファイル入出力"