现有一个比较杂乱的字符串s:
... ,df_dd,830,14,['订单ID', '客户ID', '雇员ID', '订购日期', '到货日期', '发货日期', '运货商', '运货费', '货主名称', '货主地址', '货主城市', '货主地区', '货主邮政编码', '货主国家']
如何把方括号中的内容放到列表中?
s := ' ... ,df_dd,830,14,['订单ID', '客户ID', '雇员ID', '订购日期', '到货日期', '发货日期', '运货商', '运货费', '货主名称', '货主地址', '货主城市', '货主地区', '货主邮政编码', '货主国家']';
tmpList := TStringList.Create;
ExtractStrings(['[',']'],['#'],PChar(s), tmpList); //第一个参数是分隔符; 第二个参数是开头被忽略的字符
tmpList[1] := stringReplace(tmpList[1], '''', '', [rfReplaceAll, rfIgnoreCase]);
tmpList[1] := stringReplace(tmpList[1], ' ', '', [rfReplaceAll, rfIgnoreCase]);
ExtractStrings([','],[' '],PChar(tmpList[1]), clbDataFrameFls1.Items);
tmpList.Free;
结果: