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

  • Bazs87

    tag

    Sziasztok!

    TIA V13 SP1 UPD9 Visu script-es témám van, amiben ismét a hozzáértők tanácsát szeretném kérni.
    33x800 byte-ot kell importálnom/exportálnom.
    A megoldás egy lépéslánc blockmove-val, ami a mintadb-ből a db150be pakolja a plc meghívására az adott területet. Eztán startol egy scriptet:

    Sub SpuelPrg_Export(ByRef StNr, ByRef PNr)

    'Declarations
    Dim Fn
    Dim fso
    Dim arc
    Dim varname
    Dim offs
    Dim strt
    Dim i

    If SmartTags("M 597.7") = True Then

    Fn = CStr(StNr) + "_" + CStr(PNr) + ".csv"

    Set fso = CreateObject( "Scripting.FileSystemObject" )
    Set arc = fso.CreateTextFile( Fn , True )

    varname= "DB 150 DBD "

    For i = 0 To 799 Step 4
    arc.WriteLine varname + CStr(i) + ";" + cStr(SmartTags(varname))
    Next

    arc.Close

    Set arc = Nothing
    Set fso = Nothing

    SmartTags("M 597.7") = False
    End If

    End Sub

    A gondom, hogy a SmartTags úgy néz ki nem kezel dinamikus nevet. (hiba nincs, minden értéknek nullát ad meg)
    Valaki futott már bele hasonló történetbe? Hogyan tudom esetlegesen kikerülni?
    Persze be tudom írni a 200 dbd statikus meghívását, de az nem túl elegáns. Sajnos lassan már tényleg csak ezt a lehetőséget látom.

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