Q124. 未記入だったフィールドに対し、特定の値をエクスポートするには どのような方法がありますか。｜FAX/スキャナー対応OCRソフト『TeleForm』

TeleForm Ver.8 以前のユーザー様向け FAQ

［ BasicScript｜自動エクスポート（DB） ］

Q124. 未記入だったフィールドに対し、特定の値をエクスポートするには どのような方法がありますか。

バージョン	7、8	タイプ	すべて	最終更新日	2006年07月24日

---

TeleForm での基本機能の範囲では、フィールドのプロパティ画面での「デフォルト値」においてエクスポートしたい値を設定する方法となります。ただし、フィールドのプロパティ画面での「デフォルト値」の設定は、ReaderでのOCR処理時に"未記入"と判断されたフィールドに対してのみ適用されるため、OCR処理時にノイズやズレ等の原因により不要なデータを認識してしまった場合、 不要なデータはVerifierの修正画面上で削除することは可能ですが、OCR処理時にセットされなかったデフォルト値が自動でセットされることはありません。

そのため、処理状況によっては、フィールドのプロパティ画面での「デフォルト値」の設定ではデフォルト値がデータベースに格納されないという現象が発生してしまいます。

OCR処理時に"未記入"だったフィールドはもちろん、Verifierの修正画面でデータが削除されたフィールドに対しても データベースに格納される値をセットするためには、OCR処理時ではなく、データをデータベースにエクスポートするタイミングで"未記入（データがない）"フィールドに値をセットするようなスクリプトを組み込む必要があります。

■ フォーム上に1つ1つ作成しているデータ入力フィールドの場合

このスクリプトはフィールドごとに記述します。値をセットしたいフィールドが多い場合には、最初に各フィールドのリストを定義しておく方法が有効です。 たとえば、次の1～5のデータ入力フィールドにエクスポート時にデータがなかった場合に"0"をセットするには、以下のようなスクリプトを組み込みます。

1. A商品の注文数：A_Suryou
2. B商品の注文数：B_Suryou
3. C商品の注文数：C_Suryou
4. D商品の注文数：D_Suryou
5. E商品の注文数：E_Suryou

≪Scriptのサンプル≫

Sub Form_Export
　 Dim field(6) As String
　 field(1) = " A_Suryou"
　 field(2) = "B_Suryou"
　 field(3) = "C_Suryou"
　 field(4) = "D_Suryou"
　 field(5) = "E_Suryou"
　 Dim i As Integer
　 　　　For i = 1 to 5
　 　　　　If Fields(field(i)).Text = "" then
　 　　　　　Fields(field(i)).Text = 0
　 　　　　End If
　 　　　Next i
End Sub

※ご注意
弊社では、スクリプトのサポートは行っておりません。上記のスクリプトはあくまでもサンプルです。
お客様の責任範囲でご活用いただきますようお願い致します。
なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。

■ 詳細グループ内のデータ入力フィールドの場合

詳細グループ（Detail）内の「注文数（Suryou）」フィールドに記入がなかった場合に"0"をセットするには、以下のようなスクリプトを組み込みます。

≪Scriptのサンプル≫

Sub Form_Export
　 Dim i As Integer
　 　For i = 0 to Detail.Count-1
　 　　If Detail(i). Suryou.Text = "" then
　 　　　Detail(i). Suryou.Text = 0
　 　　End If
　 　Next I
End Sub

※ご注意
弊社では、スクリプトのサポートは行っておりません。上記のスクリプトはあくまでもサンプルです。
お客様の責任範囲でご活用いただきますようお願い致します。
なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。

詳細グループ（Detail）内のすべてのデータ入力フィールドに記入がなかった場合に"0"を
セットするには、以下のようなスクリプトを組み込みます。

≪Scriptのサンプル≫

Sub Form_Export
　 Dim i As Integer
　　Dim j As Integer
　　　　For i = 0 to Detail.Count-1
　　　　　For j = 0 to Detail(i).Fields.Count-1
　　　　　　If Detail(i).Fields(j).Text = "" then
　　　　　　　Detail(i).Fields(j).Text = 0
　　　　　　End If
　　　　　Next j
　　　　Next I
End Sub

※ご注意
弊社では、スクリプトのサポートは行っておりません。上記のスクリプトはあくまでもサンプルです。
お客様の責任範囲でご活用いただきますようお願い致します。
なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。

ページ先頭へ