如何获取csv文本的值并插入访问

【问题标题】：How to get the value of csv text and insert into access如何获取csv文本的值并插入访问
【发布时间】：2016-10-04 06:33:59
【问题描述】：

我的 memo1 中有这样的字符串：

型号,"GHN-888",id,"00000000",日期,"04-21-2016",类型,1

我怎样才能做到这一点：

型号 = GHN-888 id = 00000000 日期 = 2016 年 4 月 21 日类型 = 1

这可能吗？提前致谢。

【问题讨论】：

解析字符串并构建您的查询。虽然您应该使用 SQL 参数。
那么，您是否打算a）解析原始字符串，b）将数据序列化回不同格式的字符串？第二个字符串与“插入访问”有什么关系？
你的问题和数组有什么关系？

标签： arrays ms-access delphi tstringlist

【解决方案1】：

您可以使用TStringList 来解析这一行。具有使用属性Delimiter、DelimitedText 和StrictDelimiter 分割字符串的简单方法。

See the help about this properties.

您可以使用这样的代码：

var
  TS:TStringList;
begin
  TS := TStringList.Create();
  TS.StrictDelimiter := True;
  TS.Delimiter := ',';
  TS.DelimitedText := 'model,"GHN-888",id,"00000000",date,"04-21-2016",type,1';

现在（分配DelimitedText 属性后）TStringList 使用字符',' 划分文本您有 8 行具有此值：

Model
GHN-888
id
00000000
date
04-21-2016
type
1

现在很容易单独获取值，用循环o使用TS[0], TS1, TS[2]...

【讨论】：

我们真的需要另一个解释如何拆分字符串的答案吗？进行搜索。那里有数百个。