使用vb.net在文本文件中搜索特定字符串2010

Question

有一個INI文件需要從中訪問和讀取信息。這是有問題的INI文件的完整內容：http://www.heypasteit.com/clip/0C3Q

幾個人建議我的代碼，但他們不工作。我相信這是因爲INI文件中的[ ]標籤。因爲他們工作，如果我刪除標籤。

我的程序有一堆組合框，軌跡條和複選框。這些項目將由從INI文件中獲取的信息填充。

例如，ini文件具有這些行;

... 
bCrosshairEnabled=1 
bDoDepthOfField=0 
bFXAAEnabled=1 
uiMaxSkinnedTreesToRender=10 
iSize H=720 
iSize W=1280 
... 

例如：我想在我的形式checkbox8獲取或檢查是否bFXAAEnabled有1值未選中，如果它是0。

請確保您的代碼兼容VB.NET 2010

Answer 1

你可以試試這個

Dim myvalue As Integer 
    For Each k As String In IO.File.ReadLines("d:\test.txt") 
     If k.Contains("valueccc=") Then 
      Dim values() As String = k.Split(CChar("=")).ToArray 
      myvalue = Convert.ToInt32(values(1)) 
     End If 
    Next 
Select case myvalue 
case 1 
case 2 
End select 

Answer 2

'remember to import this at the top of your class 
    Imports System.IO 


    Dim filename As String = "C:\file.txt" 
    Dim parts() As String = Nothing 

    'use a stream reader to read the file line by line 
    Using sr As New StreamReader(filename) 
     'read a line as split into parts at the equal sign 
     parts = sr.ReadLine.Split("="c) 
     'check we actually have read the data in the correct format 
     If parts.Length >= 2 Then 
      Select Case parts(0) 
       'use a case statement for the left hand side 
       Case "valuexyz" 
        'now use a case statement for the right hand side 
        Select Case parts(1).Trim 
         Case "0" 
          Foo() 
         Case "1" 
          Bar() 
        End Select 

       Case "valueabc" 
        Select Case parts(1).Trim 
         Case "0" 
          Foo2() 
         Case "1" 
          Bar2() 
        End Select 
      End Select 
     End If 
    End Using 

Answer 3

'Reads each line from the text file one at a time 
    For Each line As String In IO.File.ReadLines("text file path") 

     'split the string by equals sign 
     Dim ary As String() = line.Split("="c) 

     'Check the data type of the string we collected is inline with what we are expecting, e.g. numeric 
     If IsNumeric(ary(1)) Then 

      'create key value pair: the string before the equals and the number after it 
      'e.g. 
      'key = "valuexyz" | value = "36"" 
      Dim valuePair As New KeyValuePair(Of String, Integer)(ary(0), CInt(ary(1))) 

      'obtain the string after the equals sign 
      Dim value As Integer = CInt(ary(1)) 

      'based on the value after the equals sign, do something 
      Select Case value 
       Case 1 
        ' do something using.. 
        'valuePair.Key - this is the string before the equals 
        'valuePair.Value - this is the string after the equals 
       Case 2 
        ' do something using.. 
        'valuePair.Key - this is the string before the equals 
        'valuePair.Value - this is the string after the equals 
       Case Else 
        ' do something using.. 
        'valuePair.Key - this is the string before the equals 
        'valuePair.Value - this is the string after the equals 
      End Select 

     End If 

    Next 

Answer 4

在你的底殼聲明你Checkbox8.checked屬性設置爲在任何一方面都是虛假的。決定在哪種情況下，您需要將複選框設置爲選中狀態，然後寫入相應的行來執行此操作。

Answer 5

從您的意見我的其他答案我張貼有關如何從一個INI文件中讀取值的新的答案推斷：

Imports System.Text 
Imports System.Runtime.InteropServices 

Public Class TestForm 
    'declare the API 
    <DllImport("kernel32.dll", SetLastError:=True)> _ 
    Private Shared Function GetPrivateProfileString(ByVal lpAppName As String, _ 
         ByVal lpKeyName As String, _ 
         ByVal lpDefault As String, _ 
         ByVal lpReturnedString As StringBuilder, _ 
         ByVal nSize As Integer, _ 
         ByVal lpFileName As String) As Integer 
    End Function 

    'Function to retrieve a value from an INI file 
    Public Function GetINIValue(filename As String, section As String, key As String, Optional defaultValue As String = "") As String 
     Dim res As Integer 
     Dim sb As New StringBuilder(500) 
     res = GetPrivateProfileString(section, key, "", sb, sb.Capacity, filename) 
     If res = 1 Then Return sb.ToString Else Return defaultValue 
    End Function 

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
     Dim filename As String = "C:\Scratch\Test.ini" 
     CheckBox1.Checked = If(GetINIValue(filename, "Display", "bFXAAEnabled") = "1", True, False) 
    End Sub 

End Class