You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » Confused About Logic (COPY by variables doesn't work. FIX paths ok)
Register User       Forum List       Calendar       FAQ
Page 2 of 2 <12
Topic Options
#30890 - 2002-12-08 12:08 AM Re: Confused About Logic (COPY by variables doesn't work. FIX paths ok)
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

At this moment we doesn't see you have already a working solution.
The most strange thing is in the whole story is,
that
$source='\\file\data\SAPB\SAPB.MDB'
becomes
c:\windows
without any relevant statement between them.

When sealeopard reaction from 17 October 2002 21:23 works like he describes
we have a big problem within kixtart.
Same behaviour we will see during a del command. We think
we are removing the wanted file(s), but at that time "c:\windows"
becomes an empty directory.
We doesn't have such experiences with it. A possible problem can be created
when you are using f.e. following code
code:
 USE F: /delete /persistent
 USE F: "\\file\data"
 F:
 CD  F:sapb
 DEL F:sapb.mdb
and the CD command doesn't work because the directory "\\file\data\sapb"
doesn't exist.

Some questions:
- is your problem already solved? YES, what was the solution?
- which kixtart version were you using?

When it is still a problem please run following script, which we have
extend with debugging code.
It was done with out kixstrip tool which you can find on our site.
Our call was:

kixstrip input.kix output.kix /debug /show_structure

The code is
code:
            ;CLS
             IF (instr("-3.0x-3.1x-3.2x-3.3x-","-"+substr(@kix,1,3)+"x-") <> 0)
               IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade.","KiXtart "+@kix+" info",4112,300)
               ENDIF
               EXIT
             ENDIF
             COLOR C+/N
            ;AT (1,1) " "

             $_debug_file="kixdebug.txt" ; - %tmp% directory -
             IF (len($_debug_file) <> 0)
               IF (substr("%tmp%",len("%tmp%"),1) = "\")
                 $_debug_file="%tmp%"+$_debug_file
               ELSE
                 $_debug_file="%tmp%\"+$_debug_file
               ENDIF
             ENDIF
            ;$_debug_file="c:\kixdebug.txt"
             IF RedirectOutput($_debug_file)
             ENDIF

             ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.20e script starting"
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF ("$_debug_already_starting" <> "yes")
               ? "-curdir:       "+LCASE(@curdir)
               ? "-scriptdir:    "+LCASE(@scriptdir)
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 ? "-scriptname:   "+LCASE(@scriptname)
               ENDIF
               ? "-startdir:     "+LCASE(@startdir)
               ? "-"
               ? "-userid:       "+LCASE(@userid)+"/"+LCASE(@wuserid)
               ? "-user priv:    "+LCASE(@priv)
               IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
                 ? "-version:      inwin="+@inwin+"/dos="+@dos+"/productsuite="+@productsuite+"/producttype="+@producttype+"/csd="+LTRIM(RTRIM(@csd))
               ELSE
                 ? "-version:      inwin="+@inwin+"/dos="+@dos
               ENDIF
               ? "-"
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 ? "-"+@cpu+" (memory "+MemorySize()+" MB)"
                 ? "-"
               ENDIF
             ENDIF

             $_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname-
             IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") <> 0) OR (Val(substr(@kix,1,1)) >= 4)
               IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
                 $_debug_temp_name=@msecs
                 SELECT
                 CASE (len($_debug_temp_name) = 1)
                   $_debug_temp_name="00"+$_debug_temp_name
                 CASE (len($_debug_temp_name) = 2)
                   $_debug_temp_name="0"+$_debug_temp_name
                 ENDSELECT
                 $_debug_temp_name="."+$_debug_temp_name
                 IF Srnd(@msecs)
                 ENDIF
                 SLEEP 0.050
               ELSE
                 IF Srnd((-1)*32767/(substr(@time,7,2)+1))
                 ENDIF
                 SLEEP 1
               ENDIF
               $_debug_temp_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_temp_name+"_"+Rnd()
               IF (len($_debug_temp_name) < 25)
                 $_debug_temp_name=substr($_debug_temp_name+"          ",1,25)
               ENDIF
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 IF (len(@scriptname) < 12)
                   $_debug_temp_name=$_debug_temp_name+" "+substr(@scriptname+"            ",1,12)
                 ELSE
                   $_debug_temp_name=$_debug_temp_name+" "+@scriptname
                 ENDIF
               ENDIF
             ENDIF

             IF ("$_debug_already_starting" <> "yes")
               ? "-debug file:   "+$_debug_file
               ? "-debug name:   "+LCASE($_debug_temp_name)
             ELSE
               IF (len($_debug_temp_name) <> 0)
                 ? "-debug: "+LTRIM(RTRIM(LCASE($_debug_temp_name)))+" -> "+$_debug_file
               ELSE
                 ? "-debug-file: "+$_debug_file
               ENDIF
             ENDIF

             IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (Val(substr(@kix,1,1)) < 4)
               GOTO _debug_starting_point
             ENDIF
             DIM $_debug_name ; -create local variable-
            :_debug_starting_point
             $_debug_name=LCASE($_debug_temp_name)
             $_debug_already_starting="yes"
             ? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?

?"-         1-"+@time+"-"+$_debug_name+"- @error @serror"?  CLS
?"-         2-"+@time+"-"+$_debug_name+"- @error @serror"?  BIG
?"-         3-"+@time+"-"+$_debug_name+"- @error @serror"?  $x = 1
?"-         4-"+@time+"-"+$_debug_name+"- @error @serror"?  DO
?"-         5-"+@time+"-"+$_debug_name+"- @error @serror"?        COLOR w/n
?"-         6-"+@time+"-"+$_debug_name+"- @error @serror"?        At ( $x,$x*3 ) "MAISTO"
?"-         7-"+@time+"-"+$_debug_name+"- @error @serror"?        $x = $x+1
?"-         8-"+@time+"-"+$_debug_name+"- @error @serror"?  UNTIL $x = 6
?"-         9-"+@time+"-"+$_debug_name+"- @error @serror"?  COLOR g+/n
?"-        10-"+@time+"-"+$_debug_name+"- @error @serror"?  At ( $x,$x*3 ) "MAISTO"
?"-        11-"+@time+"-"+$_debug_name+"- @error @serror"?  At (23,0)
?"-        12-"+@time+"-"+$_debug_name+"- @error @serror"?  SMALL
?"-        13-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        14-"+@time+"-"+$_debug_name+"- @error @serror"?  SETTIME "\\FILE"
?"-        15-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        16-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (Exist("F:\.") = 1)
?"-        17-"+@time+"-"+$_debug_name+"- @error @serror"?        USE f: /delete /persistent
?"-        18-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        19-"+@time+"-"+$_debug_name+"- @error @serror"?  USE f: "\\file\data"
?"-        20-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        21-"+@time+"-"+$_debug_name+"- @error @serror"?  $defaultuseridkey = ReadValue("HKEY_CURRENT_USER\Identities", "Default User ID")
?"-        22-"+@time+"-"+$_debug_name+"- @error @serror"?  $oesubkey="HKEY_CURRENT_USER\Identities\$DefaultUserIDKey\Software\Microsoft\Outlook Express\5.0"
?"-        23-"+@time+"-"+$_debug_name+"- @error @serror"?  $oeregvalue="\\mail\users$$\@USERID"
?"-        24-"+@time+"-"+$_debug_name+"- @error @serror"?  $wabsubkey="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WAB\WAB4\Wab File Name"
?"-        25-"+@time+"-"+$_debug_name+"- @error @serror"?  $wabregvalue="\\mail\users$$\@USERID\@USERID.wab"
?"-        26-"+@time+"-"+$_debug_name+"- @error @serror"?  $mydocsubkey1="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
?"-        27-"+@time+"-"+$_debug_name+"- @error @serror"?  $mydocsubkey2="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
?"-        28-"+@time+"-"+$_debug_name+"- @error @serror"?  $mydocregvalue="\\FILE\USERS$$\@USERID"
?"-        29-"+@time+"-"+$_debug_name+"- @error @serror"?  $newiconkey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{24523867-0178-1422-5555-835448663557}"
?"-        30-"+@time+"-"+$_debug_name+"- @error @serror"?  $newiconvalue="http://ww2.maisto.com/default.asp"
?"-        31-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        32-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (WriteValue($oesubkey,"Store Root",$oeregvalue,"REG_SZ") <> 0)
?"-        33-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        34-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (WriteValue($oesubkey,"SendMDN","1","REG_DWORD") <> 0)
?"-        35-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        36-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (WriteValue($oesubkey,"SendReceiptToList","0","REG_DWORD") <> 0)
?"-        37-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        38-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (WriteValue($wabsubkey,"",$wabregvalue,"REG_SZ") <> 0)
?"-        39-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        40-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (WriteValue($mydocsubkey1,"Personal",$mydocregvalue,"REG_SZ") <> 0)
?"-        41-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        42-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (WriteValue($mydocsubkey2,"Personal",$mydocregvalue,"REG_SZ") <> 0)
?"-        43-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        44-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (WriteValue($newiconkey,"exec",$newiconvalue,"REG_SZ") <> 0)
?"-        45-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        46-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        47-"+@time+"-"+$_debug_name+"- @error @serror"?  IF (InGroup("ORDER ENTRY") <> 0) OR (InGroup("SHIPPING") <> 0)
?"-        48-"+@time+"-"+$_debug_name+"- @error @serror"?        $source='\\file\data\SAPB\SAPB.MDB'
?"-        49-"+@time+"-"+$_debug_name+"- @error @serror"?        $target='C:\MAISTO\'
                                                                  ? " $$source    "+$source
                                                                  ? " $$target    "+$target
?"-        50-"+@time+"-"+$_debug_name+"- @error @serror"?        IF Exist($source) AND Exist($target)
?"-        51-"+@time+"-"+$_debug_name+"- @error @serror"?              COPY $source $target /h
?"-        52-"+@time+"-"+$_debug_name+"- @error @serror"?              IF @error
?"-        53-"+@time+"-"+$_debug_name+"- @error @serror"?                    ? 'Warning KIX-COPY: problems during copy of "$source" to "$target". status @error (@serror)'
?"-        54-"+@time+"-"+$_debug_name+"- @error @serror"?              ELSE
?"-        55-"+@time+"-"+$_debug_name+"- @error @serror"?                    ? 'Informative KIX-COPY: no problems during copy of "$source" to "$target".'
?"-        56-"+@time+"-"+$_debug_name+"- @error @serror"?              ENDIF
?"-        57-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-        58-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        59-"+@time+"-"+$_debug_name+"- @error @serror"? 

?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
             ? "-"
             ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.20e script ending"
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF RedirectOutput("CON")
             ENDIF
             COLOR C+/N
             ?
             ? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34)
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             IF RedirectOutput($_debug_file)
             ENDIF
;($begin)
;
;                       sat 07-dec-2002 11:55:06       (kix 4.10 vs 3.20e)
;
;Informative KIXSTRIP:   no errors found (input=59 output=59 skip=0).
;
;Summary     KIXSTRIP:      block structures
;                           - do:until                 [1:1]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                           - if:else:endif            [11:1:11]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Informative KIXSTRIP:   12 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    2 USE
;
;($end)
We prefer also the notations like
- IF (ExistKey("...") <> 0)
- IF (Ingroup("...") <> 0)

After completion of running this script please return the contents
of debugging output file %tmp%\kixdebug.txt to the board.
Thanks & greetings.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#30891 - 2002-12-09 06:08 PM Re: Confused About Logic (COPY by variables doesn't work. FIX paths ok)
Justin Emlay Offline
Fresh Scripter

Registered: 2002-05-24
Posts: 26
We never got it working and in time that created an internal reaction for restructuring.

We no longer have any Windows 98 workstations and all have been converted to W2K. There are inherently too many problems with Windows 98 and networking when you try to get as "snazzy" with them as you can with W2K.

Thanks to EVERYONE and all your help!
Justin
Top
Page 2 of 2 <12


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 895 anonymous users online.
details
Newest Members
batdk82, StuTheCoder, M_Moore, BeeEm, min_seow
17885 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.051 seconds in which 0.024 seconds were spent on a total of 13 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org