组件数据转JSON格式，一站式解决多配置问题 - 精易论坛

子程序名	返回值类型	公开	备注
编辑框_取值	文本型		**为空
参数名	类型	参考	可空	数组	备注
参数_编辑框	编辑框

变量名	类型	静态	数组	备注
局_文本颜色	整数型

局_文本颜色＝参数_编辑框.文本颜色

如果真 (局_文本颜色＝ # ** 或局_文本颜色＝ #浅灰 )

返回 (“”)
返回 (参数_编辑框.内容)

子程序名	返回值类型	公开	备注
组合框_取值	文本型
参数名	类型	参考	可空	数组	备注
参数_组合框	组合框

返回 (参数_组合框.内容)

子程序名	返回值类型	公开	备注
组合框_取现行值	文本型
参数名	类型	参考	可空	数组	备注
参数_组合框	组合框

返回 (参数_组合框.取项目文本 (参数_组合框.现行选中项))

子程序名	返回值类型	公开	备注
组合框_置选中文本
参数名	类型	参考	可空	数组	备注
参数_组合框	组合框
参数_选中文本	文本型
参数_默认选中	整数型
参数_选中为内容	逻辑型

变量名	类型	静态	数组	备注
i	整数型

计次循环首 (参数_组合框.取项目数 (), i)

如果真 (参数_组合框.取项目文本 (i － 1) ＝参数_选中文本)

参数_组合框.现行选中项＝ i － 1

返回 ()

计次循环尾 ()

如果真 (是否为空 (参数_默认选中) ＝假)

参数_组合框.现行选中项＝参数_默认选中

如果真 (参数_选中为内容)

参数_组合框.内容＝参数_选中文本

子程序名	返回值类型	公开	备注
文本_判空	逻辑型
参数名	类型	参考	可空	数组	备注
参数_判断文本	文本型

返回 (参数_判断文本＝ “” 或参数_判断文本＝ “null”)

子程序名	返回值类型	公开	备注
文本_默认值	文本型
参数名	类型	参考	可空	数组	备注
参数_判断文本	文本型
参数_默认文本	文本型

返回 (选择 (文本_判空 (参数_判断文本), 参数_默认文本, 参数_判断文本))

.版本 2<br />
<br />
.子程序 编辑框_取值, 文本型, , **为空<br />
.参数 参数_编辑框, 编辑框<br />
.局部变量 局_文本颜色, 整数型<br />
<br />
局_文本颜色 ＝ 参数_编辑框.文本颜色<br />
.如果真 (局_文本颜色 ＝ #** 或 局_文本颜色 ＝ #浅灰)<br />
    返回 (“”)<br />
.如果真结束<br />
返回 (参数_编辑框.内容)<br />
<br />
<br />
.子程序 组合框_取值, 文本型<br />
.参数 参数_组合框, 组合框<br />
<br />
返回 (参数_组合框.内容)<br />
<br />
<br />
.子程序 组合框_取现行值, 文本型<br />
.参数 参数_组合框, 组合框<br />
<br />
返回 (参数_组合框.取项目文本 (参数_组合框.现行选中项))<br />
<br />
<br />
.子程序 组合框_置选中文本<br />
.参数 参数_组合框, 组合框<br />
.参数 参数_选中文本, 文本型<br />
.参数 参数_默认选中, 整数型, 可空<br />
.参数 参数_选中为内容, 逻辑型, 可空<br />
.局部变量 i, 整数型<br />
<br />
.计次循环首 (参数_组合框.取项目数 (), i)<br />
    .如果真 (参数_组合框.取项目文本 (i － 1) ＝ 参数_选中文本)<br />
        参数_组合框.现行选中项 ＝ i － 1<br />
        返回 ()<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
.如果真 (是否为空 (参数_默认选中) ＝ 假)<br />
    参数_组合框.现行选中项 ＝ 参数_默认选中<br />
.如果真结束<br />
.如果真 (参数_选中为内容)<br />
    参数_组合框.内容 ＝ 参数_选中文本<br />
.如果真结束<br />
<br />
<br />
.版本 2<br />
<br />
.子程序 文本_判空, 逻辑型<br />
.参数 参数_判断文本, 文本型<br />
<br />
返回 (参数_判断文本 ＝ “” 或 参数_判断文本 ＝ “null”)<br />
<br />
<br />
.子程序 文本_默认值, 文本型<br />
.参数 参数_判断文本, 文本型<br />
.参数 参数_默认文本, 文本型<br />
<br />
返回 (选择 (文本_判空 (参数_判断文本), 参数_默认文本, 参数_判断文本))