lr 函数--lr_save_string

lr_eval_string   返回脚本中一个参数当前的值

Returns the string argument after evaluating embedded parameters.一般都用在调试脚本时输出参数的值。

lr_save_string   ——Saves a null-terminated string to a parameter.

帮助文档里：

char *lr_eval_string( const char *instring );

 

例子：下面的例子使用lr_eval_string来代替参数row_cnt的当前值。使用lr_output_message把这个值输出到输出窗口。

lrd_stmt(Csr1, "select count(*) from employee", -1, 1 /*Deferred*/, 2 /*Ora V7*/, 0);

 

lrd_bind_col(Csr1, 1, &COUNT_D1, 0, 0);

 

lrd_exec(Csr1, 0, 0, 0, 0, 0);

 

lrd_save_col(Csr1, 1, 1, 0, "row_cnt");

 

lrd_fetch(Csr1, 1, 1, 0, PrintRow2, 0);

lr_output_message("value : %s",  lr_eval_string("The row count is: {row_cnt}"));

lr_log_message(lr_eval_string("{row_cnt}"));

注：lr_eval_string是内部地分配内存。在每一次迭代之后会释放。如果你在循环中给参数赋值，不要使用lr_eval_string保存内存。你需要使用lr_eval_string_ext，并且在每个循环迭代中使用lr_eval_string_ext_free释放内存。

lr_eval_string_ext在关联的数据是二进制数据，例如，数据包含嵌入的NULL字符时是非常有用的。

 

问题：常量参数？

示例代码1：

   const char * data="abcd";
   char * data1,data2,data3 ;
   lr_message("data value: %s",data);
   lr_save_string(data,"data1");
   lr_message("data1 value: %s",lr_eval_string("{data1}"));
 
   lr_convert_string_encoding(data,LR_ENC_UTF8,LR_ENC_SYSTEM_LOCALE,"data2");
   lr_message("data2 value : %s",lr_eval_string("{data2}"));

lr_convert_string_encoding这行时，编译不通过，type error in argument 1 to `lr_convert_string_encoding'; found `pointer to const char' expected `pointer to char' 

修改代码，将data的定义中const去掉，则可直接运行成功。

Starting action Action.
data value: abcd
Action.c(): Notify: Saving Parameter "data1 = abcd".
Action.c(): Notify: Parameter Substitution: parameter "data1" =  "abcd"
data1 value: abcd
Action.c(): Notify: Saving Parameter "data2 = abcd\x00".
Action.c(): Notify: Parameter Substitution: parameter "data2" =  "abcd\x00"
data2 value : abcd
Ending action Action.

问题来了，那这个data参数就是这样定义的，不能改变呢。如果用lr_eval_string函数，

   const char * data="abcd";
   char * data1,data2,data3 ;
   lr_message("data value: %s",data);
   lr_convert_string_encoding(lr_eval_string("{data}"),LR_ENC_UTF8,LR_ENC_SYSTEM_LOCALE,"data2");
   lr_message("data2 value : %s",lr_eval_string("{data2}"));

运行结果有误：

Starting action Action.
data value: abcd
Action.c(): Warning: The string 'data' with parameter delimiters is not a parameter.
Action.c(): Notify: Saving Parameter "data2 = {data}\x00".
Action.c(): Notify: Parameter Substitution: parameter "data2" =  "{data}\x00"
data2 value : {data}
Action.c(): Notify: Saving Parameter "data1 = abcd".
Action.c(): Notify: Parameter Substitution: parameter "data1" =  "abcd"
data1 value: abcd

将data保存成一个参数，再对值转换。

   const char * data="abcd";
   char * data1,data2,data3 ;
   lr_message("data value: %s",data);
//   lr_convert_string_encoding(lr_eval_string("{data}"),LR_ENC_UTF8,LR_ENC_SYSTEM_LOCALE,"data2");
//   lr_message("data2 value : %s",lr_eval_string("{data2}"));
 
   lr_save_string(data,"data1");
   lr_message("data1 value: %s",lr_eval_string("{data1}"));
   lr_convert_string_encoding(lr_eval_string("{data1}"),LR_ENC_UTF8,LR_ENC_SYSTEM_LOCALE,"data3");
   lr_message("data3 value : %s",lr_eval_string("{data3}"));

结果：

Starting action Action.
data value: abcd
Action.c(): Notify: Saving Parameter "data1 = abcd".
Action.c(): Notify: Parameter Substitution: parameter "data1" =  "abcd"
data1 value: abcd
Action.c(): Notify: Parameter Substitution: parameter "data1" =  "abcd"
Action.c(): Notify: Saving Parameter "data3 = abcd\x00".
Action.c(): Notify: Parameter Substitution: parameter "data3" =  "abcd\x00"
data3 value : abcd
Ending action Action.

总结：

1）遇到const 取值时，去掉const

2）将const值保存成另一个参数，通过对新值操作。

这里只是简单的使用例子，这里为啥会用到要对参数值转换呢？比如乱码需要转码时。

 问题：在对服务器返回值重命名时部分值被去掉了

具体描述：通过关联取值str，str中带%2等字符，在用函数值重命名后的新字符串中的%2没有了。在新脚本中尝试一下。

测试版本：LR12.02

测试代码：自定义字符串、参数列表中取值，分别使用sprintf、lr_save_string函数转换并输出结果

Action()
{
    char * str = "sdf%2Fdcdegdfs%2opied";
    char file[],file1[];
 
    //对直接定义的字符串重命名
    lr_save_string(str,"strnew");
    lr_output_message("str value : %s",str);
    lr_output_message("strnew value : %s",lr_eval_string("{strnew}"));
 
    sprintf(file, "%s", str);
    lr_output_message("file value : %s",file);
 
    //对参数列表中的值重命名
    lr_output_message("value : %s",lr_eval_string("{Pname}"));
    lr_save_string(lr_eval_string("{Pname}"),"strnew1");
    lr_output_message("strnew1 value : %s",lr_eval_string("{strnew1}"));
    sprintf(file1, "%s", lr_eval_string("{Pname}"));
    lr_output_message("file1 value : %s",file1);    
 
    return ;
}

测试结果：

Starting iteration .
Maximum number of concurrent connections per server:       [MsgId: MMSG-]
Starting action Action.
Action.c(): str value : sdf%2Fdcdegdfs%2opied
Action.c(): strnew value : sdf%2Fdcdegdfs%2opied
Action.c(): file value : sdf%2Fdcdegdfs%2opied
Action.c(): value : sdf%2Fdcdegdfs%2opied
Action.c(): strnew1 value : sdf%2Fdcdegdfs%2opied
Action.c(): file1 value : sdf%2Fdcdegdfs%2opied
Ending action Action.
Ending iteration .

测试结论：新字符串%2正确显示的，并未被去掉。在后续测试时，这项再注意下。