低代码平台的接口如何捕获录入关键字

【myApps/OBPM版本号】：v5.1- F社区版
【浏览器类型】：Chrome/其他
【联系方式-QQ】：260217944
【联系电话】:    请留下您的联系电话，以便技术同事更好解决您的问题
【问题描述】：工程师，之前已请教过低代码平台提供接口访问查询，但我现在还有个技术问题不知如何处理。我需要通过一个word文档里的VBA提供一个关键字作为账号名称，来调取低代码平台的接口返回数据，不知低代码平台如何编辑代码才能接获VBA过来的关键字。如下为我低代码平台和VBA代码的节选。

1. //低代码平台供外API下的脚本
   
2. 
   
3. (function(){
   
4.          //var userid = CONTEXT.getParameter("userid");
   
5.          var userid = "6ZwXXXXXXXXXXXXZcw";
   
6.          println("userid--------------->" +userid);
   
7.          //var testaccount = CONTEXT.getParameter("账号名称");
   
8.          //var testaccount = CONTEXT.getParameter();
   
9.          var testaccount = "广州穗建";
   
10.          //var testaccount = "";
    
11.          var aa = "%";
    
12.          println("testaccount------------->" +testaccount);
    
13.          var dsName = "浪潮财务共享库";
    
14.          //var id = COUNTER.genUUID();
    
15. 
    
16.         //判断参数非空
    
17.         if (null != testaccount) {
    
18.                 // var list = new Packages.java.util.ArrayList();
    
19.                 var DataArray = new Packages.net.sf.json.JSONArray();  
    
20.                
    
21.                 //可以查询系统创建表也可以获取外部表
    
22.                 //var sql = "select * from caiwugx where 账号名称 = '"+testaccount+"'";
    
23.                 var sql = "select * from caiwugx where 账号名称 like '"+aa+""+testaccount+""+aa+"'";
    
24.                 println("sql--------------->" +sql);
    
25.                 //var query = queryBySQL(sql);
    
26.                 var query = queryByDSName(dsName,  sql);
    
27.                 if (query != null && query.size() > 0) {   
    
28.                         for(var iter = query.iterator(); iter.hasNext(); ) {
    
29.                                 var JSONObject = createObject("com.alibaba.fastjson.JSONObject");
    
30.                                 // var result = new Packages.java.util.HashMap(); //创建指定类对象
    
31.                                 
    
32.                               //  var docs = iter.next();                                       
    
33.                               //  var bank_number = docs.getItemValueAsString("银行账号");
    
34.                               //  var bank_name = docs.getItemValueAsString("所属银行_名称");
    
35.                                 var item = iter.next();
    
36.                                 println("item--------------->" +item);
    
37.                                 var bank_number = item.get("银行账号");
    
38.                                 println("bank_number--------------->" +bank_number);
    
39.                                 var acc_name = item.get("账号名称");
    
40.                                 println("acc_name--------------->" +acc_name);
    
41.                                 var bank_name = item.get("所属银行_名称");
    
42.                                 println("bank_name--------------->" +bank_name);   
    
43.                                 var ID = item.get("ID");
    
44.                                 println("ID--------------->" +ID);   
    
45.                                 
    
46.                               //  JSONObject.put("id", docs.getId().toString());
    
47.                                 JSONObject.put("bank_number", bank_number.toString());
    
48.                                 JSONObject.put("acc_name", acc_name.toString());
    
49.                                 JSONObject.put("bank_name", bank_name.toString());
    
50.                                 JSONObject.put("ID", ID.toString());
    
51.                                 DataArray.add(JSONObject);
    
52.                         }
    
53.                         
    
54.                 }
    
55.                 //return DataArray;
    
56.                 println(DataArray);
    
57.         }        
    
58. })();

复制代码

1. //VBA提交关键字的节选
   
2. 
   
3. Function OptionButton22(keyword)
   
4.     Dim http As Object, jsonText As Object
   
5.     Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
   
6.     Dim tokenUrl As String
   
7.     tokenUrl = "hhXtXtXp://codXXXXXXXXX:80/obpm/api/runtime/secrets/11f0-XXXXXXXXXXXXXXXXXXXXXdd/accessToken?loginNo=zhXXXXXXXXXXXX_1"
   
8.     Debug.Print tokenUrl
   
9.     'MsgBox tokenUrl
   
10.    
    
11.     '1.获取Token
    
12.     http.Open "GET", tokenUrl, False
    
13.     http.Send
    
14.     Dim response As String
    
15.     response = http.responseText
    
16.     Debug.Print response
    
17.     Dim accessToken As String
    
18.     accessToken = ParseJSON(response)("data")
    
19.     'MsgBox accessToken
    
20.     Debug.Print accessToken
    
21.    
    
22.     '2.拼接菜单创建接口
    
23.     Dim apiUrl As String
    
24.     'Debug.Print dd("jhj")
    
25.     apiUrl = "hXtXtXp://codeXXXXXXXXXXX:80/obpm/magic-api/%E6%9C%BA%E6%96%BDcode/inspur111/6ZXXXXXXXXXXAZcw/" & keyword & "?accessToken=" & accessToken
    
26.     Debug.Print apiUrl
    
27.    
    
28.    
    
29.     '3.提交菜单数据 //获取Api接口数据
    
30.     'http.Open "POST", apiUrl, False
    
31.     http.Open "GET", apiUrl, False
    
32.     'http.setRequestHeader "Content-Type", "application/json"    ###提交的写法
    
33.     'http.Send "{""button"":[...]}"    ###提交的写法
    
34.     http.Send
    
35.     responseAPI = http.responseText
    
36.     Debug.Print responseAPI
    
37.    
    
38.     '4.输出结果
    
39.     Debug.Print http.responseText
    
40.     'Set jsonText = http
    
41. End Function

复制代码

1、问题描述最好图文并茂，如有视频/脚本可直接放出，这样技术同事在处理该问题时效率更加高效哦~
2、如果该问题已得到解决，请在该帖子下回复\\\\\\\"已解决可结帖\\\\\\\"

\\\\\\\"已解决可结帖\\\\\\\"

经同事提点，已解决

1. 低代码平台修改如下
   
2. 
   
3. var xx= CONTEXT.getParameter("xx");
   
4. var testaccount = "广州穗建建造科技有限公司";
   
5. testaccount = xx;
   
6. var sql = "select * from caiwugx where 账号名称 like '"+aa+testaccount+aa+"'";
   
7. 
   
8. VBA的代码修改为如下
   
9. 
   
10. 2.拼接菜单创建接口
    
11.     Dim apiUrl As String
    
12.     'Debug.Print dd("jhj")
    
13.     apiUrl = "htXXXtXXXXp://code.XXXXXXXXXXXX080/obpm/magic-api/%E6%XXXXXXXXXXXXXXode/inspur111/6ZXXXXXXXXXXXXXXXZcw/1?accessToken=" & accessToken & "&xx=" & UrlEncode(CStr(keyword))

复制代码