C# と VB.NET の質問掲示板

■No5788 (nana* さん) に返信
> ある特定のプリンタのポート番号をＩＰアドレス\ポート番号形式で取得したいと考えています。
(中略)
> WMIを使用すれば取得可能らしいのですが、WMIに関する技術力不足のため

WMI でよければ、これでどうでしょう。


Option Explicit
Private Sub Form_Load()
    Dim prn As Object
    For Each prn In GetObject("winmgmts:").InstancesOf("Win32_Printer")
        Debug.Print "名前="; prn.Name
        Debug.Print "モデル="; prn.DriverName
        Debug.Print "ポート="; prn.PortName
        Debug.Print "---------------"
    Next
End Sub


http://msdn2.microsoft.com/en-us/library/Aa394363.aspx

■No5836 (HIRO さん) に返信

ご返答ありがとうございます！

> ReadXMLでDataSetにデータを読み込めているんですよね？
> DataSetにDataTableが出来ていると思うのですが、そのDataTableの値を変更してWriteXMLするのが簡単かと思います。（但し、細かい処理をするには不向きかもしれません）
> 
> 特定のタグを探す場合はDataTableのSelectメソッドが使用できるかと思います。

DataTableは自動的に作成されているのでしょうか？
うまく値を取り出せません・・・。
以下にソースコードを記述します。

//ソースコード--------
DataSet dtSet = new DataSet();
StreamReader reader = new StreamReader("test.xml",System.Text.Encoding.GetEncoding("Shift_Jis"));

dtSet.ReadXml(reader);

//---------------------

間違いがあればご指摘下さい。
なお、XmlDocumentを使用することも考えたのですが
DataSetの方が特定のタグを検索するのが容易なようだったので
DataSetを使用しています。
認識は正しいでしょうか？

以上、よろしくお願い致します。

いつもお世話になっています。
Visual Studio 2005 C#でXMLファイルのエディタを作成しています。
そこで、DataSetにてXMLファイルを読み込み、データを追加する際に
構造ごと（DataTableごと）指定した位置に追加したいのですが
うまくいきません。

// ソースコード↓↓↓
DataSet aDtSet = new DataSet();
StreamReader aReaderv= new StreamReader("sample.xml",System.Text.Encoding.GetEncoding("Shift_Jis"));

//XMLファイル読み込み
aDtSet.ReadXml(Reader);

//テーブルの追加？？？

//sample.xmlの構造
//<ProjectFile>
//  <ProjectInfo>
//    <Type>1</Type>
//    <Version>1.0</Version>
//  </ProjectInfo>
//  <ModelData>
//    <Element>
//       <Name>aaa</Name>
//       　<Value> --------------------- ※このValueを構造も含めコピーし
//          　<Data>1<Data>            | 　Name以下に複数追加したい
//       　</Value> --------------------
//       </Name>
//    </Element>
//  </ModelData>
//</ProjectFile>

DataTableの扱い方が分からずうまくできません。
ご教授よろしくお願い致します。

> プログラマが根本的に理解していないようでは、やはりバグが生まれると思うからです。
至極もっともなご意見で恐れ入ります。私自身.NETでの開発経験がないのでメンバーにレクチャー
できるかどうか自信がないのでなんとか手法で逃げようとしていたのかも知れません。

> SQLServerから出し入れするときに小数部2桁で扱うということですよね？
> プログラム内部では小数部3桁以上を持つことになると思います。(でないと丸め方を選べない)

最初は下記のようにSQL Serverの結果と一致するように固定小数点型をエミュレート？するような
ものを考えていたのですが、何か方向性が違うような気がしていた次第です。


-----------------------------------------------------------------------------------
Option Strict On

Imports System.Data.SqlTypes

Public Class Class1

    Shared Sub main()

        Dim d As Decimal = 1D
        Dim d2 As Decimal = d / 3D
        Dim d3 As Decimal = d2 * 3D
        Dim d4 As Decimal = (1D / 3D) * 3D

        MessageBox.Show(d3.ToString & "：" & d4.ToString)

        Dim c As New Currency(19, 4)
        Dim c2 As New Currency(19, 4)
        Dim c3 As New Currency(19, 4)
        Dim c4 As New Currency(19, 4)

        c.Value = 1D
        c2.Value = c.Value / 3D
        c3.Value = c2.Value * 3D
        c4.Value = (1D / 3D) * 3D

        MessageBox.Show(c3.Value.ToString & "：" & c4.Value.ToString)

    End Sub

End Class

Public Structure Currency

    Private _Value As SqlDecimal
    Private _Presition As Integer
    Private _Scale As Integer

    Public Sub New(ByVal p As Integer, ByVal s As Integer)
        _Presition = p
        _Scale = s
    End Sub

    Public Property Value() As SqlDecimal
        Get
            Return _Value
        End Get
        Set(ByVal sd As SqlDecimal)
            _Value = SqlDecimal.ConvertToPrecScale(sd, _Presition, _Scale)
        End Set
    End Property

End Structure

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

【SQL Server】

declare @d decimal(19,4) 
declare @d2 decimal(19,4) 
declare @d3 decimal(19,4) 
declare @d4 decimal(19,4)

set @d = 1.
set @d2 = @d / 3.
set @d3 = @d2 * 3.
set @d4 = (1. / 3.) * 3.

select str(@d3,19,4) + ':' + str(@d4,19,4)

結果：0.9999:1.0000