DOBON.NETプログラミング道掲示板

■ 「新規作成」から投稿できます。
■ マルチポストされた投稿を見つけたときは、その投稿に返信することによりご報告ください。その際は匿名で投稿し、マルチポストされている場所を併記してください。
■ スパム対策のため、メールアドレスの先頭に"_"という文字が付加されています。
RSS 2.0 RSS 2.0 | RSS 0.91 | 携帯電話用 | 自分専用のアイコンを使用するには | 掲示板への要望 | 管理人に連絡 | お気楽掲示板
■ 24時間以内に作成されたスレッドは New で表示されます。
■ 24時間以内に更新されたスレッドは UpDate で表示されます。

記事リスト ( )内の数字はレス数
Nomal全角シフト中にアクセスキーが効かない(5) | NomalDataAdapter.Updateで構文エラー(6) | Nomal抽象クラスで実装したクラスの情報を知る(3) | Nomal画面遷移(モーダルとモードレス)(2) | NomalProcessクラスからbatファイル実行後、KILLできない(2) | NomalGetDirectoriesでルートを指定するとエラーになる(3) | Nomal兆億万表記の文字列を数値に変換できる?(3) | NomalLinqにおける明示的型指定の方法(3) | Nomal2つのradの数値から1つの角度を求めるコードを改善できますか?(C++)(2) | Nomalコンソールアプリで、WebView2の利用(2) | NomalEntity Frameworkは、使えるか?(2) | Nomalデータベースからのテーブル名一覧の効率的な取得方法(3) | NomalC#のlong型でオーバーフローになる(2) | Nomal正規表現のパターン表記方法(2) | NomalWebView2によるスクレ―ピング(4) | Nomalこういた物を作れますか?(2) | Nomalツールボックスにtableadapterが表示されない(1) | NomalC# Chart X軸上のグラフ表示(3) | NomalVB.NETでBluetoothデバイスの電池残量を取得する方法(3) | Nomalクリスタルレポート 明細部のサブレポート(0) | Nomal重なったPictureBox同士を透過する方法(7) | NomalWindowsフォームデザイナについて(3) | Nomalvb.netでExcelファイル操作(7) | NomalVB.NETからcmdでpingを実行した時の結果(5) | Nomalvb.netでのExcelファイルそうさ(2) | Nomalキーボード+バーコードでキーボード入力を無効にしたい(6) | NomalVB2022でクリスタルレポートが開けない(2) | Nomalファイルとして配置したマニフェストを優先したい(2) | NomalTabPageの背景色(5) | NomalC#でJpeg圧縮のTiffファイルを作成したい(4) | Nomalエクセルのみ監視ができない(2) | NomalDataGridViewのVirtualModeを有効した場合の実装方法(4) | NomalExcelの数値 -> 日付みたいな関数?(2) | Nomaljumbo icon(256x256)が存在するか知る方法(6) | NomalDrawstringでの透過文字作成(3) | NomalSpinWait()を使う理由(2) | Nomalantecedentってなんですか?(2) | Nomalワンタイムパスワードのサイトに自動ログインしてアクセストークンを得る(3) | Nomalstyle.displayだと効率悪いから違うやり方をしたいです。(5) | Nomalテーブルを順番通りに直すプログラムを外部で読み込めるようにしたいです。(4) | NomalJSONの複雑な入れ子内部の値を取りたい。(3) | Nomalグリッド表示レコードをJSONに変換(5) | Nomalシステム時計の設定(3) | NomalSeleniumで開いているページのTableを編集したい(5) | Nomalソケット通信入門 ひらがな(4) | NomalVisual Basicでエラーが出る(3) | Nomalインストーラにて、ローミングフォルダにファイルを配置したい(0) | NomalRGB値の所得(2) | Nomal時間変数(文字列)の扱い(4) | NomalVB.net からAccessDBへの接続(2) | Nomal画像のスクロール(6) | Nomalタイマーの一括処理(6) | NomalTreeViewとDataGridViewのスクロールを同期(シンクロ)させたい(4) | NomalTreeViewの現在位置とDataGridViewの現在位置を合わせたい(7) | NomalPictureBoxの画像を連続保存(11) | NomalDataGridViewの特定セルにボタンを配置する方法(5) | Nomalフォームのリサイズ時にDataGridViewが再描画されない(4) | NomalテキストボックスのValidatingイベントよりも先に発生するボタン発生イベントは何でしょう?(2) | NomalPDFをフォーム上で表示させる方法につきまして(4) | NomalDataGridViewの行ヘッダーに行番号を表示した時のエラー(4) | Nomal継承元フォームで各フォームのボタン動作を検知したい(3) | Nomalラジオボタンの一括設定(7) | NomalWindowsエクスプローラからのドラッグ&ドロップ(2) | NomalRichTextBoxのテキストをpictureBOXへ(12) | Nomalクリックイベントでexeを作成できるか(2) | Nomal作成した白黒画像をWordに貼り付けてから「図として保存」(8) | Nomalアセンブリ情報が載らない(1) | Nomal先頭に空白(スペース)があるファイルを読み込んでRichTextBoxへ書き出すとスペースが削除える(6) | Nomalc#で日付型の定義の仕方で質問があります。(2) | NomalExcel Com オブジェクトの増殖(13) | Nomal二次元マップから値の取得(1) | NomalアプリでHDMIへ出す解像度を変えたい(4) | Nomal列車の時間ごとの位置情報を表示したいです。(2) | Nomal画像の中心を基点に回転(4) | NomalDataGridViewのドロップダウンリストの表示と選択後の値を分けたい(1) | NomalVB.NetでVB6.0と同じFontを指定しても同様に印刷されない(9) | NomalタッチキーボードでIMEを自動で切替えたい(6) | NomalVSTOによるエクセルアドインのインストーラーでのアップデート(1) | NomalMP4動画を再生する方法について(5) | NomalUrlにアクセスするとダウンロードされるファイルを捕まえる(2) | NomalLableのカラー色を文字変数から変更したい(5) | NomalLabelで文字単位の背景色(7) | NomalTEXTBOXのプロパティを文字列に(7) | Nomalタブレット等でスワイプによるスクロールを実装(2) | NomalPDFをフォーム上で表示させる方法につきまして(6) | NomalChart X軸上の描画を切り替えたい(0) | NomalRichTextBoxへのドラッグ&ドロップしたExcelファイルの扱い(3) | Nomal特定のPCだけ発生する「パディングは無効なので削除できません」のエラーの原因(6) | NomalASP.NET WebApi内でXmlReader.Create(url)がタイムアウトする(4) | NomalDatagridViewでファンクションキーを止めたい(5) | Nomal表示動作が重くなる(3) | Nomalbitmapを複数スレッドで処理したい(2) | NomalLoadOptionのパラメータの意味(3) | Nomalフォーム背景のみを半透明にしたい(5) | Nomal読み出し元フォームの位置取得方法(2) | Nomalコンストラクターに続く{}の意味(2) | Nomal1行で書くことできますか?(3) | NomalCommandBuilderによって作られるCommandTextの内容(5) | Nomalvb.netで7zの圧縮・解凍をしたい。(2) |



■記事リスト / ▼下のスレッド
■35407 / 親記事)  JSONの複雑な入れ子内部の値を取りたい。
□投稿者/ けい 一般人(5回)-(2023/05/08(Mon) 15:13:41)
  • アイコン環境/言語:[VB.NET2022、Windows10] 
    分類:[.NET] 

    お世話になります。

    VB.NET2022のForm1にButton1とTextBox1を配置します。

    Button1を押すと、System.Text.jsonでJSONファイル(test.json)を読み込み、
    その中の項目の値をTextBox1に表示させます。

    JSONファイルがやや複雑で、値を取れる場合と取れない場合とがあり、
    取れない場合の改善方法を教えていただきたいと思っております。

    コードは以下の通りです。

    (コード)
    -----------------------------------------------------------
    Imports System.IO
    Imports System.Runtime
    Imports System.Text

    Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim enc As Encoding = Encoding.UTF8
    Dim jsonStr As String = ""
    Dim jsonFilePath As String = "C:\test.json"

    Using sr As New System.IO.StreamReader(jsonFilePath, enc)
    jsonStr = sr.ReadToEnd()
    End Using

    Dim jsonNode = System.Text.Json.Nodes.JsonNode.Parse(jsonStr)
    TextBox1.Text = <(下記参照)>'・・・・・・・・・・・・A

    End Sub

    End Class

    -----------------------------------------------------------
    また、JSONファイルの内容は、
    以下のようになっています。
    -----------------------------------------------------------
    {
    "ResultInfo": {'・・・・・・・・・・・・・・・・・・・・・・B
    "Count": 1,
    "Total": 1,
    "Start": 1,
    "Status": 200,
    "Description": "",
    "Copyright": "",
    "Latency": 0.017
    },'・・・・・・・・・・・・・・・・・・・・・・・・・・・・・C
    "Feature": ['・・・・・・・・・・・・・・・・・・・・・・・・・・・D
    {
    "Id": "8d8acd6f1e7d81d5d10a9a18e8e927ec",
    "Gid": "",
    "Name": "\u3012234-0054",
    "Geometry": {
    "Type": "point",
    "Coordinates": "139.58691098,35.37690957"
    },
    "Category": [
    "\u90F5\u4FBF\u756A\u53F7",
    "\u753A\u57DF\u90F5\u4FBF\u756A\u53F7"
    ],
    "Description": "Yahoo!\u90F5\u4FBF\u756A\u53F7\u691C\u7D22",
    "Style": [],
    "Property": {
    "Uid": "1831ff4e59f55c19370fc71002827b41f317f341",
    "CassetteId": "3ee7f7f5fe1ef2267e319b15168e37d3",
    "Country": {
    "Code": "JP",
    "Name": "\u65E5\u672C"
    },
    "Address": "\u795E\u5948\u5DDD\u770C\u6A2A\u6D5C\u5E02\u6E2F\u5357\u533A\u6E2F\u5357\u53F0",
    "GovernmentCode": "14111",
    "AddressMatchingLevel": "6",
    "PostalName": "\u795E\u5948\u5DDD\u770C\u6A2A\u6D5C\u5E02\u6E2F\u5357\u533A\u6E2F\u5357\u53F0",
    "Station": [
    {
    "Id": "23365",
    "SubId": "2336501",
    "Name": "\u6D0B\u5149\u53F0",
    "Railway": "JR\u5728\u6765\u7DDA",
    "Exit": "\u51FA\u53E3",
    "ExitId": "5999",
    "Distance": "1123",
    "Time": "14",
    "Geometry": {
    "Type": "point",
    "Coordinates": "139.596374,35.378634"
    }
    },
    {
    "Id": "23157",
    "SubId": "2315701",
    "Name": "\u6E2F\u5357\u53F0",
    "Railway": "JR\u5728\u6765\u7DDA",
    "Exit": "\u51FA\u53E3",
    "ExitId": "5628",
    "Distance": "1316",
    "Time": "16",
    "Geometry": {
    "Type": "point",
    "Coordinates": "139.576543,35.375218"
    }
    },
    {
    "Id": "23158",
    "SubId": "2315801",
    "Name": "\u6E2F\u5357\u4E2D\u592E",
    "Railway": "\u6A2A\u6D5C\u5E02\u55B6\u5730\u4E0B\u9244\u30D6\u30EB\u30FC\u30E9\u30A4\u30F3",
    "Exit": "2",
    "ExitId": "5630",
    "Distance": "3334",
    "Time": "41",
    "Geometry": {
    "Type": "point",
    "Coordinates": "139.591038,35.401302"
    }
    }
    ],
    "OpenForBusiness": "",
    "Detail": {
    "PcUrl1": "http://www.post.japanpost.jp/cgi-zip/zipcode.php?zip=234-0054"
    }
    }
    }
    ]'・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・E
    }

    -----------------------------------------------------------

    上記のAのところで、
    下記のように書いた場合、
    成功するものと失敗するものとがあります。

    (成功)

    TextBox1.Text = jsonNode("ResultInfo").ToString
    B〜Cが取得される。

    TextBox1.Text = jsonNode("ResultInfo").Item("Latency").ToString
    "Latency"の値が表示される。

    TextBox1.Text = jsonNode("Feature").ToString
    D〜Eが取得される。

    (失敗)

    TextBox1.Text = jsonNode("Feature").Item("Id").ToString
    「System.InvalidOperationException: 'The node must be of type 'JsonObject'.'」

    TextBox1.Text = jsonNode("Property").ToString
    TextBox1.Text = jsonNode("Station").ToString
    「System.NullReferenceException: 'Object reference not set to an instance of an object.'System.Text.Json.Nodes.JsonNode.this[string].get が Nothing を返しました。」

    という具合です。

    JSONファイルの内容自体は、Visual Studio Code上で、
    特に構文的間違いは出てきません。

    jsonNode("Feature")の内部の各項目の値を取得するには、どのように書けばよいか、ご教示ください。

    よろしくお願い申し上げます。



違反を報告
引用返信

▽[全レス3件(ResNo.1-3 表示)]
■35408 / ResNo.1)  Re[1]: JSONの複雑な入れ子内部の値を取りたい。
□投稿者/ Hongliang 大御所(639回)-(2023/05/08(Mon) 21:24:21)
  • アイコン> TextBox1.Text = jsonNode("Feature").Item("Id").ToString
    > 「System.InvalidOperationException: 'The node must be of type 'JsonObject'.'」

    > "Feature": ['・・・・・・・・・・・・・・・・・・・・・・・・・・・D
    > {
    > "Id": "8d8acd6f1e7d81d5d10a9a18e8e927ec",

    Featureは配列型ですね。
    jsonNode("Feature")(0)("Id")
    のように、Featureの、先頭要素の、Idプロパティ、とアクセスする必要があります。

    > TextBox1.Text = jsonNode("Property").ToString
    > TextBox1.Text = jsonNode("Station").ToString
    > 「System.NullReferenceException: 'Object reference not set to an instance of an object.'System.Text.Json.Nodes.JsonNode.this[string].get が Nothing を返しました。」

    jsonNodeがルート指したままであれば(Parseしたのを代入したままで再代入していないのであれば)、jsonNodeはこのJSONのルートオブジェクトを指しています。
    JSONのルートオブジェクトは、ResultInfoとFeatureの2つのプロパティしか持っていないので、("Property") や ("Station") は何も返すことができません。
    Dim feature As JsonNode = jsonNode("Feature")(0)
    としたうえで
    .Text = feature("Property").ToString()
    .Text = feature("Property")("Station").ToString()
    とか、更に
    Dim prop As JsonNode = feature("Property")
    .Text = prop.ToString()
    .Text = prop("Station").ToString()
    とするとかする必要があります。

    お使いのVisual Studioによっては、「形式を指定して貼り付け」を使えるかもしれません。
    https://qiita.com/Midoliy/items/362bbb95a5c78c6aa401
    // VBでも使えるかどうかは不明。
    あるいはJSONからC#クラスへの変換はネットにサービスとしても存在しているので、
    https://json2csharp.com/
    さらにC#-VB変換サービスを適用することでもクラス生成はできそうです。

    これらでクラスを生成できれば、JsonNodeを使わずとも、
    System.Text.Json.JsonSerialzier.Deserialize(Of 生成したクラス)
    メソッドを使ってオブジェクトとして扱うことができます。
違反を報告
引用返信
■35409 / ResNo.2)  Re[2]: JSONの複雑な入れ子内部の値を取りたい。
□投稿者/ けい 一般人(6回)-(2023/05/09(Tue) 10:38:27)
  • アイコンNo35408に返信(Hongliangさんの記事)

    お詳しくありがとうございます^^。

    実行してみます。

    結果が出ましたら再度ご返事させていただきます。
違反を報告
引用返信
■35410 / ResNo.3)  Re[3]: JSONの複雑な入れ子内部の値を取りたい。
□投稿者/ けい 一般人(7回)-(2023/05/09(Tue) 15:28:24)
  • アイコンNo35408に返信(Hongliangさんの記事)

    いただきましたご指摘を参考に、
    JSONファイルにおける各値を取得できました。

    今回は、JSON.NETよりも推奨されているSystem.Text.jsonのJsonNodeを使う方向になりました。

    クラスについては今後検討していきたいと思います。

    まことにありがとうございました。

    以下、各項目の値を取得した際の表記を記載させていただきます。


    "ResultInfo"

    "Count": 1 ///jsonNode("ResultInfo")("Count")
    "Total": 1 ///jsonNode("ResultInfo")("Total")
    "Start": 1 ///jsonNode("ResultInfo")("Start")
    "Status": 200 ///jsonNode("ResultInfo")("Status")
    "Description": "" ///jsonNode("ResultInfo")("Description")
    "Copyright": "" ///jsonNode("ResultInfo")("Copyright")
    "Latency": 0.049 ///jsonNode("ResultInfo")("Latency")

    "Feature"

    "Id": "8d8acd6f1e7d81d5d10a9a18e8e927ec" /// jsonNode("Feature")(0)("Id")
    "Gid": "" /// jsonNode("Feature")(0)("Gid")
    "Name": "〒234-0054" /// jsonNode("Feature")(0)("Name")

    "Type": "point" /// jsonNode("Feature")(0)("Geometry")("Type")
    "Coordinates": "139.58691098,35.37690957" /// jsonNode("Feature")(0)("Geometry")("Coordinates")


    "Description": "Yahoo!郵便番号検索" ///jsonNode("Feature")(0)("Description")
    "Style": [] ///jsonNode("Feature")(0)("Style")

    "Uid": "1831ff4e59f55c19370fc71002827b41f317f341" /// jsonNode("Feature")(0)("Property")("Uid")
    "CassetteId": "3ee7f7f5fe1ef2267e319b15168e37d3" /// jsonNode("Feature")(0)("Property")("CassetteId")

    "Code": "JP" /// jsonNode("Feature")(0)("Property")("Country")("Code")
    "Name": "日本" /// jsonNode("Feature")(0)("Property")("Country")("Name")

    "Address": "神奈川県横浜市港南区港南台" /// jsonNode("Feature")(0)("Property")("Address")
    "GovernmentCode": "14111" /// jsonNode("Feature")(0)("Property")("GovernmentCode")
    "AddressMatchingLevel": "6" /// jsonNode("Feature")(0)("Property")("AddressMatchingLevel")
    "PostalName": "神奈川県横浜市港南区港南台" /// jsonNode("Feature")(0)("Property")("PostalName")

    "Id": "23365" /// jsonNode("Feature")(0)("Property")("Station")(0)("Id")
    "SubId": "2336501" /// jsonNode("Feature")(0)("Property")("Station")(0)("SubId")
    "Name": "洋光台" ///jsonNode("Feature")(0)("Property")("Station")(0)("Name")
    "Railway": "JR在来線" ///jsonNode("Feature")(0)("Property")("Station")(0)("Railway")
    "Exit": "出口" ///jsonNode("Feature")(0)("Property")("Station")(0)("Exit")
    "ExitId": "5999" ///jsonNode("Feature")(0)("Property")("Station")(0)("ExitId")
    "Distance": "1123" ///jsonNode("Feature")(0)("Property")("Station")(0)("Distance")
    "Time": "14" ///jsonNode("Feature")(0)("Property")("Station")(0)("Time")
    "Type": "point" ///jsonNode("Feature")(0)("Property")("Station")(0)("Geometry")("Type")
    "Coordinates": "139.596374,35.378634" ///jsonNode("Feature")(0)("Property")("Station")(0)("Geometry")("Coordinates")

    "Id": "23157" /// jsonNode("Feature")(0)("Property")("Station")(1)("Id")
    "SubId": "2315701" /// jsonNode("Feature")(0)("Property")("Station")(1)("SubId")
    "Name": "港南台" ///jsonNode("Feature")(0)("Property")("Station")(1)("Name")
    "Railway": "JR在来線" ///jsonNode("Feature")(0)("Property")("Station")(1)("Railway")
    "Exit": "出口" ///jsonNode("Feature")(0)("Property")("Station")(1)("Exit")
    "ExitId": "5628" ///jsonNode("Feature")(0)("Property")("Station")(1)("ExitId")
    "Distance": "1316" ///jsonNode("Feature")(0)("Property")("Station")(1)("Distance")
    "Time": "16" ///jsonNode("Feature")(0)("Property")("Station")(1)("Time")
    "Type": "point" ///jsonNode("Feature")(0)("Property")("Station")(1)("Geometry")("Type")
    "Coordinates": "139.576543,35.375218" ///jsonNode("Feature")(0)("Property")("Station")(1)("Geometry")("Coordinates")

    "Id": "23158" /// jsonNode("Feature")(0)("Property")("Station")(2)("Id")
    "SubId": "2315801" /// jsonNode("Feature")(0)("Property")("Station")(2)("SubId")
    "Name": "港南中央" ///jsonNode("Feature")(0)("Property")("Station")(2)("Name")
    "Railway": "横浜市営地下鉄ブルーライン" ///jsonNode("Feature")(0)("Property")("Station")(2)("Railway")
    "Exit": "2" ///jsonNode("Feature")(0)("Property")("Station")(2)("Exit")
    "ExitId": "5630" ///jsonNode("Feature")(0)("Property")("Station")(2)("ExitId")
    "Distance": "3334" ///jsonNode("Feature")(0)("Property")("Station")(2)("Distance")
    "Time": "41" ///jsonNode("Feature")(0)("Property")("Station")(2)("Time")
    "Type": "point" ///jsonNode("Feature")(0)("Property")("Station")(2)("Geometry")("Type")
    "Coordinates": "139.591038,35.401302" ///jsonNode("Feature")(0)("Property")("Station")(2)("Geometry")("Coordinates")

    "OpenForBusiness": "" /// jsonNode("Feature")(0)("Property")("OpenForBusiness")
    "PcUrl1": http://www.post.japanpost.jp/cgi-zip/zipcode.php?zip=234-0054 /// jsonNode("Feature")(0)("Property")("Detail")("PcUrl1")


解決み!
違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-3]



■記事リスト / ▼下のスレッド / ▲上のスレッド
■35401 / 親記事)  グリッド表示レコードをJSONに変換
□投稿者/ けい 一般人(1回)-(2023/05/01(Mon) 17:08:45)
  • アイコン環境/言語:[Windows10、VB.NET2022] 
    分類:[.NET] 

    お世話になります。

    DataGridView1に表示されているレコードを、
    JSON形式に変換したいと考えています。

    レコードはこちらの内容です(2列3行)。
    【商品(クラス名:Shohin)】
    商品C=10000
    商品名=商品A
    商品C=10001
    商品名=商品B
    商品C=10002
    商品名=商品C

    VB.NETでJSONを扱う方法に、
    元々VB.NETに備わっている機能を使う、
    JSON.NETを使う、
    の2種類があると思いますが、
    ここではセキュリティの面もあり、
    前者を使います。

    DataGridView1にレコードが表示されており、
    Button1を押すと、
    TextBox1にJSON変換データが表示されます。
    (商品データ以外の前後の部分はここでは割愛します。)

    コードは以下の通りです。

    Public Class Shohin
    Public Property 商品C As Integer
    Public Property 商品名 As String
    End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim data() As Shohin
    ReDim data(2)
    Dim sw As New System.Runtime.Serialization.Json.DataContractJsonSerializer(GetType(Shohin))
    Dim ms As New MemoryStream()
    Dim output As String
    For i = 0 To 2
    data(i) = New Shohin
    data(i).商品C = DataGridView1.Rows(i).Cells(0).Value
    data(i).商品名 = DataGridView1.Rows(i).Cells(1).Value
    sw.WriteObject(ms, data(i))
    Next
    output = Encoding.UTF8.GetString(ms.ToArray())
    TextBox1.Text = output
    End Sub

    上記のコードを実行しますと、
    表示結果が、
    次のようになります。

    {"商品C":10000,"商品名":"商品A"}
    {"商品C":10001,"商品名":"商品B"}
    {"商品C":10002,"商品名":"商品C"}

    これですと、{}の間にカンマ(,)がついておりません。
    {"商品C":10000,"商品名":"商品A"}
    ,{"商品C":10001,"商品名":"商品B"}
    ,{"商品C":10002,"商品名":"商品C"}
    のようにしたいです。

    上記Forループ内で、
    1行目ではない場合は、
    sw.WriteObject(ms, ",")
    sw.WriteObject(ms, data(i))
    と記述しますと、
    表示結果が下記のようになってしまいます。

    {"商品C":10000,"商品名":"商品A"}
    ","{"商品C":10001,"商品名":"商品B"}
    ","{"商品C":10002,"商品名":"商品C"}

    いろいろ調べておりますが、
    わかりませんでした。

    まことにお手数と存じますが、
    どうぞよろしくお願いいたします。


違反を報告
引用返信

▽[全レス5件(ResNo.1-5 表示)]
■35402 / ResNo.1)  Re[1]: グリッド表示レコードをJSONに変換
□投稿者/ 魔界の仮面弁士 大御所(1541回)-(2023/05/01(Mon) 18:32:48)
  • アイコン
    No35401に返信(けいさんの記事)
    > ここではセキュリティの面もあり、
    > 前者を使います。

    リファレンス上では、DataContractJsonSerializer クラスではなく
    System.Text.Json 名前空間の API の利用が推奨されていますね。

    https://learn.microsoft.com/ja-jp/dotnet/api/system.runtime.serialization.json.datacontractjsonserializer?view=netframework-4.8.1


    > これですと、{}の間にカンマ(,)がついておりません。
    それは For ループで
     For i = 0 To 2
      sw.WriteObject(ms, data(i))
     Next
    という出力方法をとっているからですよね。

    Array を丸ごと渡しましょう。

     Dim data() As Shohin = {
      New Shohin With {.商品C = 10000, .商品名 = "商品A"},
      New Shohin With {.商品C = 10001, .商品名 = "商品B"},
      New Shohin With {.商品C = 10002, .商品名 = "商品C"}
     }
     Dim serializer As New DataContractJsonSerializer(GetType(Shohin()))
     Dim ms As New MemoryStream()
     serializer.WriteObject(ms, data)
     TextBox1.Text = System.Text.Encoding.UTF8.GetString(ms.ToArray())
違反を報告
引用返信
■35403 / ResNo.2)  Re[2]: グリッド表示レコードをJSONに変換
□投稿者/ けい 一般人(2回)-(2023/05/01(Mon) 19:31:17)
  • アイコンNo35402に返信(魔界の仮面弁士さんの記事)
    > Array を丸ごと渡しましょう。

    ありがとうございます^^。
    やってみます。

    また、1つの課題なのですが、
    実際には、商品レコードの数がソフト実行の度に異なるため、
    下記のように「New Shohin With」を前もって決まった数だけ書いておけないという点があります。
    この部分で、毎回読み取るレコードの数だけ、
    New Shohin Withをループさせるようなことができるか、
    が課題です。

    研究してみます。


    >  Dim data() As Shohin = {
    >   New Shohin With {.商品C = 10000, .商品名 = "商品A"},
    >   New Shohin With {.商品C = 10001, .商品名 = "商品B"},
    >   New Shohin With {.商品C = 10002, .商品名 = "商品C"}
    >  }
    >  Dim serializer As New DataContractJsonSerializer(GetType(Shohin()))
    >  Dim ms As New MemoryStream()
    >  serializer.WriteObject(ms, data)
    >  TextBox1.Text = System.Text.Encoding.UTF8.GetString(ms.ToArray())
違反を報告
引用返信
■35404 / ResNo.3)  Re[3]: グリッド表示レコードをJSONに変換
□投稿者/ けい 一般人(3回)-(2023/05/01(Mon) 19:36:09)
  • アイコンNo35402に返信(魔界の仮面弁士さんの記事)
    data()を配列と考え、
    宣言の後、
    レコードの数を満たすまで、
    New Shohin With行を要素として追加していく、
    ことができないか、試してみます。
違反を報告
引用返信
■35405 / ResNo.4)  Re[3]: グリッド表示レコードをJSONに変換
□投稿者/ 魔界の仮面弁士 大御所(1542回)-(2023/05/01(Mon) 19:48:46)
  • アイコンNo35403に返信(けいさんの記事)
    > 下記のように「New Shohin With」を前もって決まった数だけ書いておけないという点があります。

    No35401 の元投稿が Dim data() As Shohin という
    配列宣言だったからそれを真似ただけでのことです。
    別に配列でも List(Of ) でも同じことですよ。

    件数が不定なら、List(Of ) の方が良いでしょうね。

    ' 実際は data.Add(〜) を繰り返す感じになるはず
    Dim data As New List(Of Shohin)() From {
      New Shohin With {.商品C = 10000, .商品名 = "商品A"},
      New Shohin With {.商品C = 10001, .商品名 = "商品B"},
      New Shohin With {.商品C = 10002, .商品名 = "商品C"}
    }

    'GetType を配列から List(Of ) に変更
    Dim serializer As New DataContractJsonSerializer(GetType(List(Of Shohin)))
    Dim ms As New MemoryStream()
    serializer.WriteObject(ms, data)

    TextBox1.Text = System.Text.Encoding.UTF8.GetString(ms.ToArray())

違反を報告
引用返信
■35406 / ResNo.5)  Re[4]: グリッド表示レコードをJSONに変換
□投稿者/ けい 一般人(4回)-(2023/05/02(Tue) 11:59:46)
  • アイコンNo35405に返信(魔界の仮面弁士さんの記事)

    ありがとうございます。
    以下のコードでできました。


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim data As New List(Of Shohin)
    Dim serializer As New DataContractJsonSerializer(GetType(List(Of Shohin)))
    Dim ms As New MemoryStream()

    data.Add(New Shohin With {.商品C = 10000,.商品名 = "商品A"})
    data.Add(New Shohin With {.商品C = 10001,.商品名 = "商品B"})
    data.Add(New Shohin With {.商品C = 10002,.商品名 = "商品C"})

    serializer.WriteObject(ms, data)
    TextBox1.Text = Encoding.UTF8.GetString(ms.ToArray())

    End Sub


    実際には、レコードの数だけ、
    data.AddをFor〜Nextループさせます。

    解決できました。
    まことにありがとうございました。
    勉強になりました。
    今後ともどうぞよろしくお願い申し上げます。
解決み!
違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-5]



■記事リスト / ▼下のスレッド / ▲上のスレッド
■35395 / 親記事)  システム時計の設定
□投稿者/ ま〜 付き人(62回)-(2023/03/04(Sat) 17:06:42)
  • アイコン環境/言語:[VS2022 Win10] 
    分類:[.NET] 

    こんいちは
    またお世話になります

    https://dobon.net/vb/dotnet/system/setlocaltime.html#section5
    を参考に
    PCのシステム時計の時刻を変えようとしたのですが
    セキュリティエラーとなってしまいます

    他の方のコメントにされてますが私も同様の状況です
    何か道はありますでしょうか?

    宜しくお願いします

違反を報告
引用返信

▽[全レス3件(ResNo.1-3 表示)]
■35396 / ResNo.1)  Re[1]: システム時計の設定
□投稿者/ KOZ 一般人(19回)-(2023/03/06(Mon) 04:27:59)
  • アイコンNo35395に返信(ま〜さんの記事)
    > PCのシステム時計の時刻を変えようとしたのですが
    > セキュリティエラーとなってしまいます

    UAC が有効になっている場合にシステム時刻を変更するには、

    (1) 管理者権限でプロセスを立ち上げる
    (2) SeSystemtimePrivilege 特権を有効にする

    が必要です。

    https://dobon.net/vb/dotnet/system/asadmin.html
    https://dobon.net/vb/dotnet/system/setlocaltime.html#section4

    を参照してください。

違反を報告
引用返信
■35397 / ResNo.2)  Re[2]: システム時計の設定
□投稿者/ ま~ 一般人(1回)-(2023/03/07(Tue) 17:16:58)
  • アイコン情報ありがとうございます。

    早速試してみます。

違反を報告
引用返信
■35398 / ResNo.3)  Re[3]: システム時計の設定
□投稿者/ ま〜 付き人(63回)-(2023/03/14(Tue) 13:38:36)
  • アイコン御礼遅くなりすみません

    教えて頂いた内容で解決しました。

    ありがとうございます

解決み!
違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-3]



■記事リスト / ▼下のスレッド / ▲上のスレッド
■35389 / 親記事)  Seleniumで開いているページのTableを編集したい
□投稿者/ とととんとん 一般人(1回)-(2023/02/16(Thu) 17:56:18)
  • アイコン環境/言語:[C#/.NET Framework 4.7.2/Windows10] 
    分類:[.NET] 

    開いているページのTableの特定列にある文字列を
    置き換えたいと思っています。(HTML全部取得してReplaceして表示も可)

    ページを開くところまでは問題なくできたのですが、
    Tableにあるデータの置き換え方法が分かりません。
    調べてもSendKeysしか出てきません。

    F12で開いたときに編集できるものなので
    Seleniumでも編集できると思っています。

    どのようにしたらテキストの置き換えができますか?

    .NET Framework 4.7.2
違反を報告
引用返信

▽[全レス5件(ResNo.1-5 表示)]
■35390 / ResNo.1)  Re[1]: Seleniumで開いているページのTableを編集したい
□投稿者/ Hongliang 大御所(638回)-(2023/02/16(Thu) 20:03:57)
  • アイコンJavaScriptで書き換えるということになるかと思います。
    SeleniumでのJavaScriptの実行は、
    https://qastack.jp/programming/6229769/execute-javascript-using-selenium-webdriver-in-c-sharp
    まあこの辺とかまず参考にしてみてください。
違反を報告
引用返信
■35391 / ResNo.2)  Re[1]: Seleniumで開いているページのTableを編集したい
□投稿者/ 魔界の仮面弁士 大御所(1538回)-(2023/02/16(Thu) 21:51:43)
  • アイコンNo35389に返信(とととんとんさんの記事)
    > Seleniumでも編集できると思っています。

    Selenium についてはご存じなのですね。
    ExecuteScript までの流れは Hongliang さんが紹介されているので、
    私からは DOM 操作について言及してみます。


    > 開いているページのTableの特定列にある文字列を
    > 置き換えたいと思っています。(HTML全部取得してReplaceして表示も可)

    該当列の TH/TD タグの内容を列挙すれば良いと思います。

    TR タグの cells プロパティから、TH/TD タグを拾うことができます。
    https://developer.mozilla.org/ja/docs/Web/API/HTMLTableRowElement

    各セルの cellIndex プロパティからは、行内での列番号を得ることもできます。
    https://developer.mozilla.org/ja/docs/Web/API/HTMLTableCellElement


    ただし、結合セルや非表示セルがある場合は注意が必要です。

    1. TH/TD 要素の colSpan プロパティが 2 以上を返すケース
    2. TR 要素の rowspan プロパティが 2 以上を返すケース
    3. TR の子要素(つまりTH/TD)が非表示(display:none スタイル)が設定されているケース

    こうした構成の TABLE では、Web 上の見た目の列番号と、
    HTML の階層における cellIndex の値が一致しなくなることがあります。
違反を報告
引用返信
■35392 / ResNo.3)  Re[2]: Seleniumで開いているページのTableを編集したい
□投稿者/ 魔界の仮面弁士 大御所(1539回)-(2023/02/17(Fri) 00:49:28)
  • アイコンNo35391に追記(魔界の仮面弁士の記事)
    >>開いているページのTableの特定列にある文字列を
    >>置き換えたいと思っています。(HTML全部取得してReplaceして表示も可)
    > 該当列の TH/TD タグの内容を列挙すれば良いと思います。

    おっと。列挙後のデータの置き換えについての説明が漏れていましたね。

    TH/TD タグの中身を置き換えるために、
    textContent プロパティまたは innerHTML プロパティを利用できます。
    https://qiita.com/iwasaki-hub/items/9f339ddb7c20ec804723
違反を報告
引用返信
■35393 / ResNo.4)  Re[3]: Seleniumで開いているページのTableを編集したい
□投稿者/ とととんとん 一般人(1回)-(2023/02/17(Fri) 17:52:33)
  • アイコンHongliang様、魔界の仮面弁士様、ありがとうございました!
    出来ました……!!!
    たぶん出来る人からみたら適当すぎてダメだとは思いますが、
    動けば良いのです……!本当にありがとうございます!!

    参考までに、ソース載せときます。

    string scripts = "var sampleElements = document.getElementsByClassName('test-group'); for (var i = 0, len = sampleElements.length; i < len; i++) { sampleElements[i].innerHTML = sampleElements[i].innerHTML.replace('置換前', '置換後') }";
    //var sampleElements = document.getElementsByClassName('test-group');
    //for (var i = 0, len = sampleElements.length; i < len; i++)
    //{
    // sampleElements[i].innerHTML = sampleElements[i].innerHTML.replace('置換前', '置換後')
    //}

    chrome.ExecuteScript(scripts);
解決み!
違反を報告
引用返信
■35394 / ResNo.5)  Re[4]: Seleniumで開いているページのTableを編集したい
□投稿者/ 魔界の仮面弁士 大御所(1540回)-(2023/02/17(Fri) 22:08:25)
  • アイコン
    No35389に返信(とととんとんさんの記事)
    ■No35393に返信( とととんとんさんの記事)
    > □投稿者/ とととんとん 一般人(1回)
    
    どうして「1回」のままなのかと思ったら…よく見たら別名という罠!
    
    
    > 参考までに、ソース載せときます。
    文字列内での改行が必要な場合、「@"〜"」を使えますよ。
    https://learn.microsoft.com/ja-jp/dotnet/csharp/language-reference/tokens/verbatim
    https://ufcpp.net/study/csharp/st_string.html
    
    
    string scripts = @"
     const sampleElements = document.getElementsByClassName('test-group');
     for (let i = 0, len = sampleElements.length; i < len; i++) {
       sampleElements[i].innerHTML = sampleElements[i].innerHTML.replace(arguments[0], arguments[1]);
     }
    ";
    chrome.ExecuteScript(scripts, "置換前", "置換後");

解決み!
違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-5]



■記事リスト / ▲上のスレッド
■35384 / 親記事)  ソケット通信入門 ひらがな
□投稿者/ ぬるい親父 一般人(1回)-(2023/02/14(Tue) 14:24:24)
  • アイコン環境/言語:[Windows10 VB.Net 2022] 
    分類:[.NET] 

    こんいちは

    ソケット通信の勉強をしています

    https://dobon.net/vb/dotnet/internet/tcpclientserver.html#section4

    このURLのクライアント作成の部分に付いて教えて頂けますでしょうか?

    仮にですが16進の1234Hを送る場合ですが変数sendMsgを"&H1234"にすれば良いのでしょうか?

    Dim sendBytes As Byte() = enc.GetBytes(sendMsg & ControlChars.Lf)

    Dim sendBytes As Byte() = enc.GetBytes("&H1234" & ControlChars.Lf)
    へ書き換える

    よろしくお願いします



違反を報告
引用返信

▽[全レス4件(ResNo.1-4 表示)]
■35385 / ResNo.1)  Re[1]: ソケット通信入門 ひらがな
□投稿者/ 魔界の仮面弁士 大御所(1536回)-(2023/02/14(Tue) 16:51:28)
  • アイコンNo35384に返信(ぬるい親父さんの記事)
    > ソケット通信の勉強をしています
    タイトルにある「ひらがな」とは何のことですか?

    > 仮にですが16進の1234Hを送る場合ですが変数sendMsgを"&H1234"にすれば良いのでしょうか?
    文字列比較ではなくバイナリを送りたい、ということでしょうか。

    エンディアンにもよりますが、

    Dim sendBytes As Byte() = {&H34, &H12}
    Dim sendBytes As Byte() = BitConverter.GetBytes(&H1234US)

    Dim sendBytes As Byte() = {&H12, &H34}
    Dim sendBytes As Byte() = BitConverter.GetBytes(&H3412US)

    でどうでしょう。

    末尾LFも送出したいなら
    = {&H34, &H12, &HA}
    = {&H12, &H34, &HA}
    とか。
違反を報告
引用返信
■35386 / ResNo.2)  Re[2]: ソケット通信入門 ひらがな
□投稿者/ 魔界の仮面弁士 大御所(1537回)-(2023/02/14(Tue) 16:58:17)
  • アイコンNo35385に追記(魔界の仮面弁士の記事)
    >>ソケット通信の勉強をしています
    > タイトルにある「ひらがな」とは何のことですか?

    そうか、元のタイトルだと
    掲示板の投稿ルールに抵触すると…。

    「タイトルとコメントには、必ずひらがなを入れてください。これには、スパム対策の意味もあります。」
違反を報告
引用返信
■35387 / ResNo.3)  Re[2]: ソケット通信入門 ひらがな
□投稿者/ ぬるい親父 一般人(2回)-(2023/02/14(Tue) 18:47:05)
  • アイコン魔界の仮面弁士さんありがとうございます

    試してみます

    ひらがなの件制約でした。

違反を報告
引用返信
■35388 / ResNo.4)  Re[2]: ソケット通信入門 ひらがな
□投稿者/ ぬるい親父 一般人(3回)-(2023/02/16(Thu) 15:24:22)
  • アイコンバイナリ送信送信は無事出来たのですが
    今度は2バイトのバイナリ受信にトライしてます

    考え方はどうすればよいでしょ?
違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-4]






Mode/  Pass/


- Child Tree -

2024/03/29(Fri) 03:01:28 に作成されたキャッシュを表示しています。
生のデータを表示する | キャッシュを最新にする