Frage Entwicklung VB for Applications

gelöst Per Vbscript bestimmte Zeile ungeachtet der Nummerierung prüfen

Dim objShell,appdata, regex, strContent, strFilename

Set objShell = CreateObject("wscript.shell")

Set objFS = CreateObject("Scripting.FileSystemObject")

Set regex = CreateObject("vbscript.regexp")

regex.Multiline = True: regex.IgnoreCase = True

regex.Pattern = "SimObjPaths.*=Addon Scenery\Europe\Italy\AnconaX\simobjects"

appdata = objShell.ExpandEnvironmentStrings("%appdata%")

strNewLine = "SimObjectPaths.*=Addon Scenery\Europe\Italy\AnconaX\simobjects"

strFileName = appdata & "\Microsoft\FSX\fsx.cfg"

strContent = objFS.OpenTextFile(strFileName, 1).ReadAll()

if not regex.Test(strContent) then

Const FOR_READING = 1

Const FOR_WRITING = 2

strCheckForString = UCase("SimObjectPaths")

Set objFS = CreateObject("Scripting.FileSystemObject")

Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)

strContents = objTS.ReadAll

objTS.Close

arrLines = Split(strContents, vbNewLine)

Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)

For i = 0 To UBound(arrLines)

  if Len(arrLines(i)) >= Len(strCheckForString) then

    If Left(UCase(LTrim(arrLines(i))),Len(strCheckForString)) = strCheckForString and Left(UCase(LTrim(arrLines(i+1))),Len(strCheckForString)) <> strCheckForString Then

        num = CInt(Split(Split(arrLines(i),".")(1),"=")(0)) + 1

        objTS.WriteLine arrLines(i) & vbNewline & Replace(strNewLine,"*",num)

    else

        objTS.WriteLine arrLines(i)

    End If

Else

    objTS.WriteLine arrLines(i)

End if

next

objTS.Close

End if

[Main]

User Objects=Airplane, Helicopter

SimObjectPaths.0=SimObjects\Airplanes

SimObjectPaths.1=SimObjects\Rotorcraft

SimObjectPaths.2=SimObjects\GroundVehicles

SimObjectPaths.3=SimObjects\Boats

SimObjectPaths.4=SimObjects\Animals

SimObjectPaths.5=SimObjects\Misc

Maximized=2

Location=320,136,1360,914,\\.\DISPLAY1

HideMenuNormal=0

HideMenuFullscreen=1

ProcSpeed=9249

PerfBucket=7

[PANELS]

IMAGE_QUALITY=1

QUICKTI