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

• #5812 joci9 tag Bazs87 #5810

  Új Válasz 2016-03-10 09:03:17 #5812

  Ú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

  

  joci9

  tag

  válasz Bazs87 #5810 üzenetére

  Szia!

  Én ESA panelon és runtime-al PC-én használom ezeket.
  Ott VB script van és annak függvényei működnek szépen.
  CE-s panelon igaz csak az alapok, de ott is ment a fájl másolás stb.
  Most PC-re fejlesztek, itt ha van telepített MS-Office vagy Libreoffice akkor használhatók annak a függvényei is, azokkal szépen lehet excel táblát írni olvasni.

  Nekem ez a leírás sokat segített:
  http://www.zmgzeg.sulinet.hu/ntk/inf10/alg/vbsprutm.pdf
  neked 23-ik oldaltól (meg a többi) :-)

  ESA CE panelen így néz ki, ott nem próbáltam a win file system objectet ami a leírásban benne van

  If ESAHMI.ESAFILE.EXISTS("C:\ESA\")<>0 Then
  dest="C:\ESA\"
  destp="F:\ESA\" 'ha pc-én fut akkor ez az elérési út, ez a pendrive
  pcvan=0
  Else
  dest="\Hard Disk\Documents\" 'ha wince panelon fut akkor meg ez a pendrive
  destp="\Hard Disk2\"
  pcvan=1
  End If

  listaindex=ESAHMI.ESATAG.GetCurrentRawValue ("EListaindex")
  dest1=dest & "eloadas" & listaindex & ".txt"
  dest2=destp & "eloadas" & listaindex & ".txt"
  If ESAHMI.ESAFILE.EXISTS(destp)<>0 Then
  If ESAHMI.ESAFILE.EXISTS(dest1)<>0 Then
  ESAHMI.ESAFILE.COPY dest1, dest2
  Else
  ESAHMI.ESAMsgBox "Nincs ilyen eloadas"
  End If
  Else
  ESAHMI.ESAMsgBox "Dugjal sticket bele"
  End If

  üdv

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