おやじプログラマー日記: 2016年6月

BHT-BASIC4.0:データファイルのFIELD文での注意点

私事なのですが、最近収めたシステムで客先より「エラーコードが3DHが表示されてデータが登録できない」との連絡在りました。 3DH のエラーコードの内容は取説より

「3Dh：FIELD ステートメントで指定されたフィールド幅が、ファイルと異なっています。」
とのこと、こちらでいくら再現しようとしてもエラーが発生しませんでした。

そこで客先で該当するデータファイルの情報をシステムメニューから表示してもらったところ、データファイルのフォーマットが昔のままで、そのためにエラーが発生している様でした。
（最初に納入したプログラムで動作させてそのままにしておいて、フォーマットが変更された最新のプログラムを動作させて為に発生しました）

この FIELD命令 ですが、既に存在するファイルと違っている場合に新しい FIELD命令 では機能せずにエラーが発生します。

以下に FIELD命令 でエラーが発生するソースを記します。最初の FIELD命令 で作成された「TEST.DAT」は2個のカラムを持っていますが、 2度目の FIELD命令 でエラーが発生します。

このプログラムを実行すると以下の画面になります。

中古パソコン【Windows7】 [T14B] 東芝 dynabook R731/B Core i5 2520M 2.5GHz 2GB 250GB 13.3ワイド DVD Multi Win7 Pro 【中古ノートパソコン】【ノートパソコン】【PC】【アウトレット】【中古】【1ヶ月保証】【RCP】【おすすめ】

価格： 20,800円
（2016/11/24 11:18時点）

感想：1件

投稿時刻 18:13 BHT-BASIC | 個別ページ | コメント (2) | トラックバック (0)

日本郵便を名乗った不審なメールにご注意を！！

今日、日本郵便と名乗った「 [日本郵便] 集荷依頼申込み完了のお知らせ」なるメールが届いていました。
メールにはZIPファイルが添付されていました。「S16089775648250.zip」というファイル名でした。

日本郵便に何かあったのかなと思ったのですが、「noreply@me.post.japanpost.jp」なる怪しいアドレスでしたので、削除しました。

日本郵便のホームページを見てみると以下の様な情報が在りました。
郵便物の配達を装った不審メールにご注意ください。」

トロイの木馬型のウイルス感染をさせるメールの様です。皆様もご注意ください。

投稿時刻 15:04 | 個別ページ | コメント (0) | トラックバック (0)

ソーシャルブックマーク統合サービス「Add Clips」は終了！

このブログですが最近開くのが遅いと感じていたのですが、原因がわかりました。
ソーシャルブックマーク統合サービスの「Add Clips」を記事に貼っていたのですが、このサービスが2016年3月31日で終了していました。

以下のスクリプトを貼っていたのですが、早速削除しました。
<script type="text/javascript">  </script> <script charset="utf-8" src=" http://js.addclips.org/v2/addclips.js" type="text/javascript"> </script>

投稿時刻 14:05 javascript, パソコン・インターネット | 個別ページ | コメント (0) | トラックバック (0)

ASP.NET:PageRequestManagerクラスによるCSVダウンロードの方法（UpdatePanel）

UpdatePanelの中に設置されたボタンコントロールによりCSVファイルをダウンロードさせるには、少し工夫が必要です。

ボタンクリック時には非同期処理のポストバックが行われますが、このポストバックの直前のタイミングをとらえて、 CSVファイルのダウンロードするページをコールしてやります。

別ページを起動するわけにもいかないので、「iframe」のタグを生成しそのURLにCSVファイルのダウンロードするページを設定してやります。

以下に、CSVファイルのダウンロードを起動するページのソースを示します。
<html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> <title></title> </head> <body> <form id="form1" runat="server"> <div> <asp:ScriptManager ID="ScriptManager1" runat="server" /> <script type="text/javascript"> // 非同期ポストバックの開始前に呼び出されるイベント・ハンドラを追加 var ins = Sys.WebForms.PageRequestManager.getInstance(); ins.add_initializeRequest(InitializeRequest); // イベント・ハンドラ function InitializeRequest(sender, args) { // CSVダウンロードボタン実行 if (sender._postBackSettings.sourceElement.id == "ButtonCsv") { //iframeを作成しURLを設定することでCSVダウンロードを起動 var iframe = document.getElementById("IframeCsv") if (iframe) { document.body.removeChild(iframe); } var iframe = document.createElement("iframe"); iframe.id = "IframeCsv"; iframe.src = "DownloadCsv.aspx"; iframe.style.display = "none"; document.body.appendChild(iframe); } } </script> <asp:UpdatePanel ID="UpdatePanel1" runat="server"> <ContentTemplate> <asp:Button runat="server" ID="ButtonCsv" Text="Download Csv" /> </ContentTemplate> </asp:UpdatePanel> </div> </form> </body> </html>
CSVファイルを実際にダウンロード処理するソースは以下の様になります。ファイルの内容は例ですので適当な内容にしてあります。
Public Partial Class DownloadCsv Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load '簡単なCSVデータの生成 Dim strCSV As String = "Data1,Data2" & vbCrLf strCSV &= """AAAAAAAA"",""1111111111""" & vbCrLf strCSV &= """BBBBBBB"",""2222222222""" & vbCrLf strCSV &= """CCCCCCCC"",""33333333""" & vbCrLf strCSV &= """DDDDDDD"",""4444444""" & vbCrLf 'ダウンロード処理 Response.ClearContent() 'Response情報クリア Response.Buffer = True 'バッファリング Response.AddHeader("Content-Disposition", "attachment; filename=CsvSample.csv") 'HTTPヘッダー情報設定 Response.ContentType = "text/comma-separated-values" Response.Write(strCSV) 'ファイル書込 Response.Flush() 'フラッシュ Response.End() 'レスポンス終了 End Sub End Class

TECHNICAL MASTER はじめてのASP.NET 4 プログラミング Visual Basic編【電子書籍】[ WINGSプロジェクト土井毅 ]

価格： 2,916円
（2016/09/29 14:03時点）

感想：0件

投稿時刻 18:22 VB.NET | 個別ページ | コメント (0) | トラックバック (0)

おやじプログラマー日記

コンピュータ業界に身をおいて３０年あまり…VB.NET・OracleなどのTIPS、おやじの独り言

おすすめ本

最近の記事

最近のトラックバック

Ranking

最近のコメント

アーカイブ

AccRanking

Ad

2016年6月

2016年6月 7日 (火)

BHT-BASIC4.0:データファイルのFIELD文での注意点

日本郵便を名乗った不審なメールにご注意を！！

2016年6月 6日 (月)

ソーシャルブックマーク統合サービス「Add Clips」は終了！

2016年6月 1日 (水)

ASP.NET:PageRequestManagerクラスによるCSVダウンロードの方法（UpdatePanel）

検索

admax

カテゴリ

リンク

LSF

LPOP