Can't figure it II

[Bruce MacPherson]

If you have not followed this topic the problems are in the topic "Can't figure it"


I have installed A5V4 on another machine as a test

The script works fine.

When my machine crashed last week I took the opportunity to install Windows 2000. Could this be the source of my woes?

[JerryBrightbill]

RE: Can't figure it II

Bruce,
I suspect your problem may be corrupted data or Win2000. If you search the forum for Win2000 or Windows 2000, you will find a number of posts. It appears Win2000 doesn't always work as advertised(what a surprise).

Incidentally, I created a table with the same field names, browse name, and dummy values as appear in your example. Then I cut and pasted your script. It didn't find any records, even when the search string exactly matched the field value. While your script looks fine, I have found that running multiple operations in xbasic doesn't always work as expected. I have a few apps where I have split each operation into separate scripts and then run them in sequence. In one case, I had to close and reopen each table after each operation to get reliable results.

The script I posted worked both on exact matches and wildcards. It also only fetches once to set search to either T or F. This will be twice as fast as your origianl script, which may bve important with large tables.

By the way, the job_name is a character field and search is a logical field, right?

Jerry

[JerryBrightbill]

RE: Can't figure it II

A little test shows your origianl script will work if jo_name is a character field and contains either all numbers or capital letters. This works even if the search string is in small letters or uses wild cards. It fails if the field contains lowercase characters. If you change the following line

if like(tsearch,jn.job_name)

to
if like(alltrim(lower(tsearch)),alltrim(lower(jn.job_name)))

then your script seems to work every time. You still have a problem if no records are found.

Jerry

[Bruce MacPherson]

RE: Can't figure it II

I reinstalled A5V4 and all is fine again.


Is there a way to automatically have the wildcards in the front and back.

[Stan Mathews]

RE: Can't figure it II

tsearch="*"+alltrim(lower(tsearch))+"*"

before the

if like(alltrim(lower(tsearch)),alltrim(lower(jn.job_name)))

should do that.

[Bruce MacPherson]

RE: Can't figure it II

This line causes A5 to crash
tsearch="*"+alltrim(lower(tsearch))+"*"
After restarting A5 the script does not work again!

I give up

[Stan Mathews]

RE: Can't figure it II

Bruce,

Sorry, don't know why that would cause a crash.

Stan

[JerryBrightbill]

RE: Can't figure it II

Bruce
Don't know what your problem is, but I tried

tsearch="*"+alltrim(lower(tsearch))+"*"

and it worked fine on a test search using your original script. Still using Win2000? I doubt the problem is your script. Does this problem occur with every computer using your script? In any case, I sometimes add the following to trap errors in a script.

on error goto error_handler
'// Script main body
end
error_handler:
msg = error_text_get(error_code_get())+chr(10)+chr(13)+"Error occured at line "+str(error_line_number_get(),4,0)
ui_msg_box("Error",msg)

Jerry