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

• #6796 Bazs87 tag Szirty #6795

  Új Válasz 2017-04-13 08:11:14 #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