2. Fórumok
  3. Egyéb hardverek
  4. PLC programozás

Új hozzászólás Aktív témák

  • #6796 Bazs87 tag Szirty #6795
    Új Válasz #6796
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Bazs87

    tag

    válasz Szirty #6795 üzenetére

    a ciklikus olvasás beállítás megválaszolta a 0 kiement kérdésem.
    A program, igaz statikus 200 soros meghívással, de működik.

    A nagyobb gond úgy néz ki olvasásnál van.
    Perpill ez a kód:

    Sub SpuelPrg_Import(ByRef StNr, ByRef PNr)

    'Declarations
    Dim Fn
    Dim fso
    Dim arc
    Dim tmp
    Dim var
    Dim valu
    Dim list

    If SmartTags("M 595.7") Then

    Fn = "D:\testscript\" + CStr(StNr) + "_" + CStr(PNr) + ".csv"

    Set fso = CreateObject( "Scripting.FileSystemObject" )
    Set list = CreateObject( "System.Collections.ArrayList" )

    If Not fso.FileExists(Fn) Then
    ShowSystemAlarm Fn + " not exists"
    Exit Sub
    End If

    Set arc = fso.OpenTextFile( Fn , 1 )

    Do
    tmp = arc.ReadLine
    'var = Left ( tmp, InStr( tmp , ";" ) - 1 )
    'valu = Right ( tmp, Len( tmp ) - InStr( tmp , ";" ) - 1 )

    list.add Right ( tmp, Len( tmp ) - InStr( tmp , ";" ) - 1 )

    On Error Resume Next

    ' SmartTags(""&var&"")= valu

    SmartTags("DB 150 DBD 0")=list(0) --> a din megoldás kommentezve, ezt próbálom

    If Err.Number <> 0 Then
    ShowSystemAlarm "Error in write process"
    Exit Sub
    End If
    On Error GoTo 0

    Loop Until arc.AtEndOfStream

    arc.Close

    Set arc = Nothing
    Set fso = Nothing

    SmartTags("M 595.7") = False
    End If
    End Sub

    a bemeneti adat 1 sora:
    DB 150 DBD 0;555

    A stringvágás vbs-ben működött, előbb ott teszteltem. Csak utána ültettem át tiába.

    2 komolyabb gondom van perpill:
    - a "kisebb", hogy a notin amint rányitok az import scriptre a tia összeomlik és bezár
    - a nagyobbik az, h "error write process" hibával elszáll a script és nem ír semmit vissza a DB-be

    valszeg a konvertálással van a gond, mert ugye a beolvasott változó string, az vagdosva is lett ráadásul, majd nekem DWord-be kellene konvertálnom.

    Itt jön be, hogy siemensék integere <> vbs integer, ezáltal hibáa akarok én cInt-et v cDbl-t használni a végeredmény ugyanez. Igaz, konvertálgatási próbálkozásaim alatt konvertálási hibát is kiírt. Ha nem konvertálok akkor azt nem sérelmezi, csak írni nem tudom...

    A dinamikus problémát még meg tudom oldani a léhűtő kívül generál és bemásol témával, de az írási problémámra az sem jelent megoldást.

    a változó is már folyamatosan meghívódik. Mi lehet még?

    (visszatérve az exportra vagyok olyan perverz, hogy az általad javasolt megoldással is futok egy kört, mert sokkal igényebess az általad leírt)
    továbbá újratelepítek egy tiát, de sztem előtte csinálok egy videót és elküldöm egy cirkusznak, mert ez már kritikán aluli....

    a kódra úgy tekintsetek, hogy egy megírt de változtatott logika, még nincs tisztázva, a teszt közepén áll.

Új hozzászólás Aktív témák