FileTextRead

V tomto fóru můžete hlásit nalezené chyby, dávat návrhy na vylepšení vývojářům PROMOTIC SCADA software a vkládat ostatní témata.

FileTextRead

Postby kmpc » Tue 24. Mar 2020 14:29:10

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
kmpc
 
Posts: 30
Joined: Thu 12. May 2016 6:39:20

Re: FileTextRead

Postby Pavel Klimíček » Wed 25. Mar 2020 10:55:56

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
Pavel Klimíček
 
Posts: 73
Joined: Thu 13. Dec 2012 15:35:59

Re: FileTextRead

Postby kmpc » Wed 25. Mar 2020 11:03:05

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
kmpc
 
Posts: 30
Joined: Thu 12. May 2016 6:39:20


Return to Hlášení chyb, návrhy na vylepšení, ostatní...

Who is online

Users browsing this forum: No registered users and 1 guest

cron