2011-07-20 7 views
0

プロジェクトの.vbprojファイルで、プロジェクトで使用したいプロパティを指定したりインポートしたりすることができると思います。VB.Net:VB.netのJavaプロパティファイルのようなプロパティファイルを持つ方法?

本当ですか?

もしそうなら、私はVBソースコードでこれらをどのように使用しますか?

プロパティファイルにテーブル名、接続文字列などを保存します。

ご協力いただければ幸いです!

+0

これは 'dotnetnuke'タグ付けされている理由は不明だ、とあなたは、プロパティファイルは、Javaで提供何についての詳細な説明を追加することができますか?設定ファイルや設定を見てきましたか?Javaプロパティの違いを記述できますか? –

+0

間違い...ドットネットを取り除いた! –

答えて

1

文字列を格納するだけであれば、リソースファイルを使用して、Properties.Resources.Whateverで文字列を取得することができます。

+0

試してみよう!!!! –

+0

**ありがとうございます、**私はキーワードが必要と思います。 –

2

あなたはプロジェクトの設定ファイルを考えている:

このトピックは古いもので、誰かがするかもしれあなたは、プロジェクトのプロパティ]設定を作成し、それらは、そのような

My.Settings.YourSetting = "thing" 
+0

試してみてはこれ! –

1

としてそれらにアクセスこの答えを見つけるのが有益です。私はVB.NETで作業を始めたときにjava.util.Propertiesを非常に強く忘れてしまったので、プロパティファイルをJavaと非常によく似た簡単なクラスにしました(私は本当にJavaがありません:/):

`輸入System.IO

名前空間Utilの

Public Class Properties 

    Private m_Properties As New Hashtable 

    Public Sub New() 

    End Sub 

    Private Sub Add(ByVal key As String, ByVal value As String) 
     m_Properties.Add(key, value) 
    End Sub 

    Public Sub Load(ByRef sr As StreamReader) 

     Dim line As String 
     Dim key As String 
     Dim value As String 

     Do While sr.Peek <> -1 
      line = sr.ReadLine 
      If line = Nothing OrElse line.Length = 0 OrElse line.StartsWith("#") Then 
       Continue Do 
      End If 

      key = line.Split("=")(0) 
      value = line.Split("=")(1) 

      Add(key, value) 

     Loop 

    End Sub 

    Public Function GetProperty(ByVal key As String) 

     Return m_Properties.Item(key) 

    End Function 

    Public Function GetProperty(ByVal key As String, ByVal defValue As String) As String 

     Dim value As String = GetProperty(key) 
     If value = Nothing Then 
      value = defValue 
     End If 

     Return value 

    End Function 

End Class 

エンド名前空間これはjava.util.Propertiesと同じように使用することができます `

Imports Util 'some code Public Shared Sub GetProps(ByVal f As String) Dim props As New Properties() Dim sr As New StreamReader(projFile) props.Load(sr) Dim someProp As String = props.GetProperty("propName") Dim someProp2 As String = props.GetProperty("propName2", "defaultPropValue") sr.Close() End Sub ' some code

関連する問題