2011-07-20 95 views
0

我認爲我們可以指定或導入我們希望在項目的.vbproj文件中使用的屬性。VB.Net:如何在VB.net中具有屬性文件,如java屬性文件?

這是真的嗎?

而且..如果是的話,我將如何使用這些在我的VB源代碼...?

我想保留屬性文件中的表名,連接字符串等。

任何幫助表示讚賞!

+0

目前還不清楚這是爲什麼標籤'dotnetnuke',並可以添加更多的描述是什麼性質的文件提供的Java?你看過配置文件和/或設置,並且可以描述java屬性是如何不同的? –

+0

錯誤...刪除了dotnetnuke! –

回答

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