Alpha Video Training
Results 1 to 11 of 11

Thread: sys_open used with ui_get_text

  1. #1
    Jean-P. Bédard
    Guest

    Default sys_open used with ui_get_text

    Hi,

    I am trying to write a script that would allow a user to enter a file name and open it with a button.

    The following script works correctly
    file="C:test.doc"
    sys_open(file)

    However if I use, to allow the user to enter the file name

    file dim as c
    result dim as c
    file=ui_get_text("get number","enter file number Ex: test.dot")
    result="c:file"
    sys_open(result)

    That does not work, I also tried result="c:+file"
    result="c:+""+file" etc without any success.

    What am I doing wrong, or may be "sys_open" will not work that way.?

    Thanks for your help

    Regards to all

    JP

  2. #2
    Mick Magnuson
    Guest

    Default RE: sys_open used with ui_get_text

    Hi Jean
    I got this work but to enter the full path in the dialog box. In my test I entered "C:booth.doc" - trying to parse "c:" with the var didn't work because it doesn't like the backslash char. I didn't find the ascii equivilent or I would have tried that. Just using "C:"+alltrim(resp)would work, but I believe it would only look for the file in the current directory (didn't try it)

    dim global resp as c
    resp=ui_get_text("","File Name")
    resp=alltrim(var->resp)
    ui_msg_box("",resp) 'to check the result
    sys_open(resp)


    Mick

  3. #3
    Mick Magnuson
    Guest

    Default RE: sys_open used with ui_get_text

    GRRRRR all the backslashes are gone. Lets try this again and I will replace the backslash with a pipe |...

    I got this work but had to enter the full path in the dialog box. In my test I entered "C:|booth.doc" - trying to parse "c:|" with the var didn't work because it doesn't like the backslash char. I didn't find the ascii equivilent or I would have tried that. Just using "C:"+alltrim(resp)would work, but I believe it would only look for the file in the current directory (didn't try it)

    dim global resp as c
    resp=ui_get_text("","File Name")
    resp=alltrim(var->resp)
    ui_msg_box("",resp) 'to check the result
    sys_open(resp)


    Mick

  4. #4
    "Certified" Alphaholic
    Real Name
    William Hanigsberg
    Join Date
    Apr 2000
    Location
    Toronto, ON
    Posts
    4,018

    Default RE: sys_open used with ui_get_text

    Is there a reason why aren't you guys using UI_get_file()? Since it returns a full path you do not have to add the drive id manually.

    Bill

  5. #5
    Edward F. Schulz
    Guest

    Default RE: sys_open used with ui_get_text

    backslash ascii equiv is chr(92)

  6. #6
    Mick Magnuson
    Guest

    Default RE: sys_open used with ui_get_text

    LOL, guess that would be easier than reinventing the wheel!

  7. #7
    Jean-P. Bédard
    Guest

    Default RE: sys_open used with ui_get_text

    Thanks to both of you,Mike an Bill

    Mike, I will try your script and let you know.

    Bill, I guess "ui_get_file" brings you to the Alpha files.

    I have a long path through my server, the actual path is

    server_acme!public!bsdq!file_name.doc
    The! represents the backslash.

    with sys_open I can get as far as the directory where the files are stored, but I was trying to simply have to enter the specific file name such as sample.doc and open the file directly.

    I will study all your responses and do some trial and error tests.

    Thanks again.

    JP

  8. #8
    "Certified" Alphaholic Stan Mathews's Avatar
    Real Name
    Stan Mathews
    Join Date
    Apr 2000
    Location
    Bowling Green, KY
    Posts
    25,119

    Default RE: sys_open used with ui_get_text

    Jean-P.,

    Take another look at ui_get_file(). With the optional default filename parameter you can lead the user to the proper directory and allow a one click open of the file.

    An example from my testing on my local drive follows:

    rslt=ui_get_file("test","Table(*.dbf)","C:"+chr(92)\ +"cw"+chr(92)+"db"+chr(92)+"sku.dbf")


    opens the dialog box with the sku.dbf highlighted, down two directories from the top. Adding additional directories is only a matter of tacking more "directoryname"+chr(92)+ to the expression.

    Still might be easier.

    Good luck,

    Stan

  9. #9
    Edward F. Schulz
    Guest

    Default RE: sys_open used with ui_get_text

    Do you get an error message? Is the file in the C: root? You might need
    to show the path.

    It might look something like this: "c:"+chr(92)+"foldername"+chr(92)+
    "file"
    efs

  10. #10
    "Certified" Alphaholic
    Real Name
    Cal Locklin
    Join Date
    Mar 2000
    Location
    S.E. Michigan
    Posts
    5,763

    Default RE: sys_open used with ui_get_text

    JP,

    If you can use the ui_get_file() as others have suggested, this will probably be easiest and most versatile. You should be able to get any file anywhere on the system with this command. I haven't tried everything but I've tried quite a few that were not A5 files and not anywhere near the A5 directory.

    As for your original script, I think this would work:


    file = ui_get_text( "get number", "enter file number Ex: test.dot" )
    result = "C:" + chr(92) + file
    sys_open( result )

    Since "file" is a variable, you need to leave it outside the quote marks.

    (Of course, this assumes that the format sys_open( "C:\filename.doc" ) will work.

  11. #11
    Jean-P. Bédard
    Guest

    Default RE: sys_open used with ui_get_text

    Thanks to all of you, my script works fine:

    You have to make sure to put the "" at the right locations and to use chr(92) instead of backslash.



    Here is the script that works:

    dim soum as c
    dim result as c
    soum=ui_get_text("soum","entrer numero")
    result=chr(92)+chr(92)+"serveur_acme"+chr(92)+"public"+chr(92)+"soumissions public bsdq"+chr(92)+soum+".doc"
    sys_open(result)


    As an example when button is push all the user has to do in to enter the file name without extension such as 2149, which is is the quotation number in a word .doc file.


    Thanks again, really appreciated.

    Best regards

    JP

Similar Threads

  1. ui_get_text Not Working?
    By ChrisHawkes in forum Alpha Five Version 7
    Replies: 14
    Last Post: 11-01-2005, 05:21 AM
  2. toolbox and ui_get_text()
    By CALocklin in forum Alpha Five Version 6
    Replies: 6
    Last Post: 10-05-2004, 03:50 PM
  3. sys_open()
    By John Lemisch in forum Alpha Five Version 5
    Replies: 2
    Last Post: 09-26-2002, 04:28 PM
  4. ui_get_text box and cancel?
    By Jeff Moses in forum Alpha Five Version 4
    Replies: 2
    Last Post: 05-24-2000, 08:20 PM
  5. ui_get_text in a report?
    By Sandy Garrett in forum Alpha Five Version 4
    Replies: 8
    Last Post: 05-12-2000, 09:05 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •