[FlatX007]

Код:

$aIniSec = IniReadSection("test.ini", "Params")
MsgBox(0, Default, UBound($aIniSec) - 1)

Код:

$aIniSec = IniReadSection("test.ini", "Params")
If Not (@error) Then MsgBox(0, Default, $aIniSec[0][0])

[Centrinar]

Забыл, помимо prog там есть и другие строки, но нужно подсчитать именно prog

[madmasles]

Centrinar,
Так попробуйте:

Код:

$j = 0
$aSection = IniReadSection(@ScriptDir & '\My.ini', 'Params')
For $i = 1 To $aSection[0][0]
    ;If StringInStr($aSection[$i][0], 'prog', 0) Then ;или так
    If StringLeft($aSection[$i][0], 4) = 'prog' Then
        $j += 1
    EndIf
Next
MsgBox(0, 'Test', 'Ключей с именем "prog... ": ' & $j & ' штук.')

[FlatX007]

Код:

#include <Array.au3>

Global $sProg = 'prog'
Dim $aProgSec[1]

$aIniSec = IniReadSection("test.ini", "Params")
If Not (@error) Then
    For $i = 1 To $aIniSec[0][0]
        If StringLeft($sProg, StringLen($sProg)) = StringLeft($aIniSec[$i][0], StringLen($sProg)) Then
            _ArrayAdd($aProgSec, $aIniSec[$i][0] & '|' & $aIniSec[$i][1])
        EndIf
    Next
    $aProgSec[0] = UBound($aProgSec) - 1
EndIf

_ArrayDisplay($aProgSec) ;~ ;$aProgSec[0] = "Количество найденых ключей PROGxxx"

[madmasles]

FlatX007,
Не проще ли вместо StringLeft($sProg, StringLen($sProg)) просто указать $sProg?

[FlatX007]

меняем prog на program_ какой нибудь и теряется универсальность я вроде как для функции сделал, просто передать значения а там она сама разберётся.

[madmasles]

FlatX007,

Код:

Global $sProg = 'что угодно'

If StringLeft($sProg, StringLen($sProg)) <> $sProg Then
    MsgBox(0, 'madmasles', 'FlatX007, Вы были правы.')
Else
    MsgBox(0, 'madmasles', 'FlatX007, Вы были не правы.')
EndIf

[amel27]

Код:

StringRegExpReplace(FileRead(@ScriptDir &'\My.ini'), "(?im)^\s*prog\d+\b", "")
ConsoleWrite("Количество найденых ключей PROGxxx: "& @extended &@CRLF)