FileTextRead

[kmpc]

Dobrý den,
ve verzi 8.3.30 jsem ke čtení řádků v souboru používal funkci FileTextRead (Pm.FileTextRead("#app:ini/sDBfile.ini", 1);)

Ta samá funkce mi ovšem ve verzi 9.0.9 vrátí prázdné řádky. Pokud použiji parametr 0, tak se mi celý soubor zobrazí, ale bohužel s parametrem 1 mám prázdné řádky.

Prosím vás, kde dělám chybu?

Děkuji za odpověď
Nekula

[Pavel Klimíček]

Dobrý den
Testoval jsem ve verzi 9.0.9 metodu FileTextRead a použil jsem k tomu soubor "sDBfile.ini" (konfigurační soubor pro komunikaci s amitem), který měl 162 řádků.
Provedl jsem 2 testy. Jeden v "javascriptu" a druhý ve "VBScriptu".
Oba proběhly úspěšně:

1) Klávesa PmaKey nastavená na skriptovací jazyk "javascript" se skriptem:

Code: Select all

var aIni = Pm.FileTextRead("#app:ini/sDBfile.ini", 1);

if (Pm.IsValid(aIni))
{
   var nRows = aIni.GetSize(1);
   for (var i = 0; i < nRows; i++)
      Pm.Debug(i + "=" + aIni.GetItem(i));
   
}

2) Jiná klávesa PmaKey nastavená na skriptovací jazyk "VBScript" se skriptem:

Code: Select all

Dim aIni, nRows, i

aIni = Pm.FileTextRead("#app:ini/sDBfile.ini", 1)

If Pm.IsValid(aIni) Then
   nRows = UBound(aIni)
   For i = 0 To nRows
      Pm.Debug i & "=" & aIni(i)
   Next
End If

[kmpc]

Omlouvám se,
použil jsem "konverze textu skriptu", ale už jsem si neuvědomil, že při přístupu k položce v poli musím u javascriptu použít GetItem.

Děkuji
Nekula