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.
[ Szerkesztve ]
