Чтение/запись INI ж/переменной Раздел Название

Question

Добрый день люди -

я работаю на чтение/запись внешний файл, который создается и управляется с помощью 3-й партии, которая использует .INI структурированные файлы в качестве языка сценариев , Однако у меня есть обертка, но имена разделов статичны с уникальным номером в конце ([GENERAL-1]), так что у вас одна и та же задача более одного раза. Я использую VB.NET w/VS2008.

Мой код ниже может успешно прочитать ключ из раздела, жестко закодированного, но я бы хотел, чтобы ключ был общим.

INI

test.ini 
[GENERAL-1] 
SUPPRESSTASKERRORS=Y 
TASKERRORSENDJOB=Y 

Код:

Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias  
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As 
String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As 
Long, ByVal lpFileName As String) As Long 

Declare Function WriteProfileString Lib "kernel32.dll" Alias 
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As 
String, ByVal lpString As String, ByVal lpFileName As String) As Long 



' Read INI file 
    Dim uname As String ' receives the value read from the INI file 
    Dim slength As Long ' receives length of the returned string 
    Dim OriginalMJB As String = "c:\test\test.ini" 
    uname = Space(1024) 

slength = GetPrivateProfileString("General-1", "SUPPRESSTASKERRORS", "anonymous", 
uname, 1024, OriginalMJB) 

Уведомление Генерального 1 выше, если у меня есть значение жёстко, как -1 я могу прочитать INI-файл ввода без проблема. Любые мысли о том, как я могу получить и использовать значение слева от дефиса?

Любая помощь приветствуется!

--George

Answer 1

Это один из способов. Отсюда вы сможете сделать SectionNo равным определенному разделу, который вы хотите.

Dim section As String = "General" 
Dim SectionNo as String = "-" 
Dim Number as Integer = 1 
SectionNo += Number.ToString 
slength = GetPrivateProfileString(section + SectionNo, "SUPPRESSTASKERRORS", "anonymous", uname, 1024, OriginalMJB) 

Вот несколько вариантов

Dim SectionName As String = "General-1" 
    Dim SectionCategorie As String = "" 
    Dim Section As String = "" 

    'Using Split - It returns an array so you can load the results into an array 
    'or just call it and load the specific index each time. 
    SectionCategorie = Split(SectionName, "-")(0) 
    Section = Split(SectionName, "-")(1) 

    'Using Substring 

    SectionCategorie = SectionName.Substring(0, SectionName.IndexOf("-")) 
    Section = SectionName.Substring(SectionName.IndexOf("-") + 1)