Progress 4GLでASCII制御コードで入力を分割する方法は？

Question

このバーコードをグループセパレータでProgressで分割するにはどうすればよいですか？私は幸運なしにCHR（29）を試しました。 ++メモ帳にスキャン

バーコード：入力フィールドにスキャンhttp://i.imgur.com/8DmPZ.png

バーコード：2409271405202120330017100282の

感謝。

def var c as char no-undo. 
def var i as int no-undo. 

update c format "x(50)". 

do i = 1 to length(c): 
    message substr(c, i, 1) = chr(29). 
end. 

Answer 1

問題はGSが未定義の制御コードであるということです。だからあなたはそれを認識させる必要があります。

F13としてGSを定義するためにprotermcapであなたの端末のエントリに以下を追加します。

：（F13）= \ 035：

\（GS用進コードは035 \で、F13が定義されていませんファンクションキー - 組み合わせが機能するはずです。テストするスキャナはありませんが、これはキーボードに入力できるコントロールコードで動作します...）

define variable bc as character no-undo format "X(50)". 

update bc editing: 
    if lastkey = 313 then 
    apply ".". /* 313 is the code for F13 */ 
    else 
    apply lastkey. 
end. 

これは "。" GSの代わりに挿入されます。 "。"を使用して文字列を解析できるようになります。 GSよりむしろ。

Answer 2

ENTRY（entry-num、barcode-string、 "group-separator-string"）と思っていますか？

Answer 3

これが私の作品：

/* create a test file (otherwise not needed...) 
*/ 

output to "barcode.dat". 
put control "240927140520" chr(29) "2120330017" chr(29) "100282". 
output close. 

/* if you already have barcode.dat start here 
*/ 

define variable m as memptr no-undo. 
define variable bc as character no-undo. 

set-size(m) = 100. 
input from "barcode.dat" binary no-convert. 
import unformatted m. 
input close. 

bc = get-string(m, 1). 

display 
    entry(1, bc, chr(29)) format "x(12)" skip 
    entry(2, bc, chr(29)) format "x(12)" skip 
    entry(3, bc, chr(29)) format "x(12)" skip 
.