ＳＱＬの窓

2010年07月01日


Json.NET を使用して JSON 文字列を VB.net で使用する( 逆シリアライズ )

ブラウザでダウンロード 
サンプルに添付した json.txt は、Twitter の verify_credentials.json
で取得したものです。

Json.NET からダウンロードしたアセンブリをソースコードと同じ場所に置いて
__libPath.txt に既に記述済みの該当アセンブリの先頭のセミコロンを削除し
て下さい。Framework2.0 か Framework3.5 の選択ですが、両方インストール
されている場合はどちらでもいいと思います。
※ Framework は __buildPath.txt で選択して下さい

関連する記事

PHP + Twitter API : 資格情報の確認と アプリケーションに割り当てられた My Access Token

' ********************************************************
' ■ アセンブリのダウンロード
'    http://json.codeplex.com/
' ■ マニュアル
'    http://james.newtonking.com/projects/json/help/
' ********************************************************
Imports System.IO
Imports System.Text
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

Module MyModule

' ********************************************************
' FileStream は Stream を継承
' ********************************************************
Sub Main()

	' WEB(Twitter) から返された json フォーマットのテキストを開く
	Dim JsonText As StreamReader = New StreamReader( "json.txt", Encoding.UTF8 )

	' 全て読み込む
	Dim Text As String = JsonText.ReadToEnd()

	' 逆シリアライズ
	Dim JsonObject As Object = JsonConvert.DeserializeObject( Text )

	' 閉じる
	JsonText.Close()

	' Object として参照
	Console.WriteLine( JsonObject("statuses_count") )

	' プロパティで一覧参照
	Dim jp As JProperty

	For Each jp In JsonObject
		' jp.Value は JToken
		Console.WriteLine( jp.Name + " : " + jp.Value.ToString() )
	Next

End Sub

End Module



以下は実行結果です

>json.exe
968
statuses_count : 968
notifications : false
profile_sidebar_border_color : "F2E195"
description : "絵を描くプログラマ"
location : ""
screen_name : "sworc"
profile_use_background_image : true
followers_count : 13
status : {
  "favorited": false,
  "coordinates": null,
  "source": "<a href=\"http://winofsql.jp/\" rel=\"nofollow\">TwitLink</a>",
  "created_at": "Sun Jun 27 07:07:03 +0000 2010",
  "place": null,
  "in_reply_to_screen_name": null,
  "truncated": false,
  "in_reply_to_user_id": null,
  "id": 17148268393,
  "contributors": null,
  "geo": null,
  "in_reply_to_status_id": null,
  "text": "資料 TCPDF 利用前の注意事項 http://bit.ly/cXWWH2"
}
contributors_enabled : false
friends_count : 4
lang : "ja"
geo_enabled : false
profile_background_color : "000000"
favourites_count : 0
verified : false
profile_text_color : "0C3E53"
following : false
time_zone : "Osaka"
created_at : "Sat Nov 21 04:24:25 +0000 2009"
profile_link_color : "FF0000"
protected : false
profile_background_image_url : "http://a3.twimg.com/profile_background_images/59645045/bbs_img_4598c0b36c78d.jpg"
name : "night walker"
profile_sidebar_fill_color : "FFF7CC"
url : "http://winofsql.jp/tegaki"
profile_image_url : "http://a3.twimg.com/profile_images/536588405/tw_normal.png"

id : 91500526
profile_background_tile : false
utc_offset : 32400


以下は、二通りの参照方法です
( どちらも同じ結果になります )
※ 値がダブルクォートで挟まれている場合は、.Value が使用でき、
※ ダブルクォートが省かれます( ダブルクォートが無いとエラー )

' Object として参照
Console.WriteLine( JsonObject("statuses_count") )
Console.WriteLine()
Console.WriteLine( JsonObject("status") )
Console.WriteLine()
Console.WriteLine( JsonObject("status")("source").Value )
Console.WriteLine( "----------------------------------------------" )

' パスで取得
Console.WriteLine( JsonObject.SelectToken("statuses_count") )
Console.WriteLine()
Console.WriteLine( JsonObject.SelectToken("status") )
Console.WriteLine()
Console.WriteLine( JsonObject.SelectToken("status.source").Value )
Console.WriteLine( "----------------------------------------------" )


Object の場合、JProperty で下位オブジェクトを取得し、
JObject の場合は、キー/値ペア　で下位オブジェクトを取得します。
( JObject.Parse を使用すると、JObject として明示して取得できます )

' Object => JProperty
Dim jp As JProperty
For Each jp In JsonObject
	Console.WriteLine( jp.Name + " : " + jp.Value.ToString() )
Next

' JObject => キー/値ペア
Dim kv As System.Collections.Generic.KeyValuePair(Of String, JToken)'
For Each kv In Ctype(JsonObject,JObject)
	Console.WriteLine( kv.Key + " : " + kv.Value.ToString()  )
Next



以下は配列のサンプルです。
( [ ] は配列です )

--------------------------------------------------
【実行】
--------------------------------------------------
Console.WriteLine( JsonObject.SelectToken("test[0].k_name").Value )
Console.WriteLine( JsonObject.SelectToken("test[0].k_value").Value )
Console.WriteLine( JsonObject.SelectToken("test[1].k_name").Value )
Console.WriteLine( JsonObject.SelectToken("test[1].k_value").Value )

--------------------------------------------------
【データ】
--------------------------------------------------
test : [
  {
    "k_name": "A",
    "k_value": "123"
  },
  {
    "k_name": "B",
    "k_value": "456"
  }
]

--------------------------------------------------
【結果】
--------------------------------------------------
A
123
B
456
タグ：JSON VB.NET
posted by lightbox at 2010-07-01 22:21 | VB.NET : 通信 | このブログの読者になる | 更新情報をチェックする

SQLPlus : 置換変数の概要と使い方

変数と言うより結局「実行前の置き換え」です。

定義せずに使った場合

SQL> select * from &TABLE_NAME;
table_nameに値を入力してください:

※ 入力を求められる


事前に定義してデータをセット

SQL> DEFINE TABLE_NAME = 社員マスタ
SQL> select * from &TABLE_NAME;

※ 入力は求められません
※ 再設定でも使います


意図的に変数に入力する

SQL> ACCEPT TABLE_NAME


変数の内容表示

SQL> PROMPT &TABLE_NAME
社員マスタ


スクリプト内部での利用例

-- 置換変数による表定義表示
COLUMN COLUMN_NAME FORMAT A40 HEADING '列名'
COLUMN DATA_TYPE FORMAT A10 HEADING 'データ型'
COLUMN NULLABLE FORMAT A4 HEADING 'NULL'
select COLUMN_NAME,DATA_TYPE,NULLABLE from USER_TAB_COLUMNS where TABLE_NAME = '&TARGET_TABLE';



スクリプトへの引数

-- 置換変数による表定義表示
COLUMN COLUMN_NAME FORMAT A40 HEADING '&1.列名'
COLUMN DATA_TYPE FORMAT A10 HEADING 'データ型'
COLUMN NULLABLE FORMAT A4 HEADING 'NULL'
select COLUMN_NAME,DATA_TYPE,NULLABLE from USER_TAB_COLUMNS where TABLE_NAME = '&1';


置換変数に続けて文字列を指定したい場合は、.で繋げます( 変数の終わりをインタープリタに知らせる為です )

社員マスタ列名                           データ型   NULL
---------------------------------------- ---------- ----
社員コード                               VARCHAR2   N
氏名                                     VARCHAR2   Y
フリガナ                                 VARCHAR2   Y
所属                                     VARCHAR2   Y
性別                                     NUMBER     Y
作成日                                   DATE       Y
更新日                                   DATE       Y
給与                                     NUMBER     Y
手当                                     NUMBER     Y
管理者                                   VARCHAR2   Y
生年月日                                 DATE       Y

11行が選択されました。
タグ：Oracle sqlplus
posted by lightbox at 2010-07-01 12:36 | Oracle | このブログの読者になる | 更新情報をチェックする
Seesaa の各ページの表示について
Seesaa の 記事がたまに全く表示されない場合があります。その場合は、設定＞ 詳細設定＞ ブログ設定 で 最新の情報に更新の『実行ボタン』で記事やアーカイブが最新にビルドされます。

Seesaa のページで、アーカイブとタグページは要注意です。タグページはコンテンツが全く無い状態になりますし、アーカイブページも歯抜けページはコンテンツが存在しないのにページが表示されてしまいます。

また、カテゴリページもそういう意味では完全ではありません。『カテゴリID-番号』というフォーマットで表示されるページですが、実際存在するより大きな番号でも表示されてしまいます。

※ インデックスページのみ、実際の記事数を超えたページを指定しても最後のページが表示されるようです

対処としては、このようなヘルプ的な情報を固定でページの最後に表示するようにするといいでしょう。具体的には、メインの記事コンテンツの下に『自由形式』を追加し、アーカイブとカテゴリページでのみ表示するように設定し、コンテンツを用意するといいと思います。


※ エキスパートモードで表示しています

アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります


<% if:page_name eq 'archive' -%>
アーカイブページでのみ表示される内容
<% /if %>

<% if:page_name eq 'category' -%>
カテゴリページでのみ表示される内容
<% /if %>

<% if:page_name eq 'tag' -%>
タグページでのみ表示される内容
<% /if %>


この記述は、以下の場所で使用します



Powered by Seesaa
container 終わり



✅ フリーフォントで簡単ロゴ作成
✅ フリーフォントでボタン素材作成
✅ フリーフォントで吹き出し画像作成
✅ フリーフォントではんこ画像作成
✅ ほぼ自由に利用できるフリーフォント
✅ フリーフォントの書体見本とサンプル
✅ 画像を大きく見る為のウインドウを開くボタンの作成
✅ CSS ドロップシャドウの参考デモ
✅ イラストAC
✅ ぱくたそ
✅ 写真素材 足成
✅ フリーフォント一覧
✅ utf8 文字ツール
右サイド 終わり
base 終わり