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

• #6789 Bazs87 tag

  Új Válasz 2017-04-12 08:27:26 #6789

  Ú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

  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