请问怎么在txt文件中插入空格???

Question

请问怎么在txt文件中插入空格???或在access数据中插入空格。
txt文件格式如下：
574300015680,206713010269,493065012053,282557014810,441071014722,116006010295,423488012245,608292019166,
就是在每个数据的第6与第7之间加入空格。
比如：
574300 015680,206713 010269,493065 012053,282557 014810,441071 014722,116006 010295,423488 012245,608292 019166,
access数据格式如下：
字段1         字段2        字段3       字段4        字段5         字段6                 字段7         字段8
574300015680 206713010269 493065012053 282557014810 441071014722  116006010295   423488012245 608292019166
道理一样也是在6，7间加空格。小弟刚学不久，请各位帮帮忙。

Answer 1

string:='字段1'+#9+'字段2';就可以了

Answer 2

这样写的数据用*。xls保存可以Execl也可以打开，而且还是分列的

Answer 3

现在是原数据已经固定好了。人家给我的是txt文件。txt文件格式如下：
574300015680,206713010269,493065012053,282557014810,441071014722,116006010295,423488012245,608292019166,
现在要在每个12位的数据中间插入一个空格。比如象“574300015680,”加入空格后应该变成574300 015680，第6位与第7位之间要有空格。我也已经导入access文件。有谁知道怎么弄么？
楼上几位谢谢你们的提议。不过不行。

Answer 4

直接在文本中加入空格然后
s1:TStringList
s1.loadfromfile()
一行行处理一下
再
s1.savetofile()
就可以了
明白了吗？

Answer 5

procedure TForm1.Button3Click(Sender: TObject);
var
s1: TStringList;
s2: TStringList;
i,j: integer;
ss1: string;
ss2: string;
begin
   s1:= TStringList.Create;
   s2:=TStringList.Create;
   s1.LoadFromFile('d:\3.txt');
   try
     for i:=0 to s1.Count-1 do
     begin
     ss1:=s1.strings[i];
     //574300015680,206713010269,493065012053,282557014810,441071014722,116006010295,42348//8012245,608292019166,
     ss2:=ss1;
     s2.Clear;
     while not (pos(',',ss2)=0) do
     begin
     ss1:=copy(ss2,1,pos(',',ss2)-1);
     ss1:=copy(ss1,1,6)+' '+copy(ss1,7,6);
     s2.Add(ss1);
     ss2:=copy(ss2,pos(',',ss2)+1,length(ss2)-pos(',',ss2)+1);
     end;
     s1.Strings[i]:='';
     for j:=0 to s2.count-1 do
     begin
     s1.Strings[i]:=s1.Strings[i]+s2.Strings[j]+',';
     end;     end;
     showmessage(s1.strings[1]);
   finally
     s1.SaveToFile('d:\result.txt');
     s1.Free;
     s2.free;
   end;end;

Answer 6

var
  sl:TStringList;
  s:string;
  i:integer;
begin
  sl:=TStringList.create();
  sl.LoadFromFile('你的txt文件');
  for i:=0 to sl.Count-1 do
  begin
    s:=sl.String[i];
    //加入空格
  end;
  sl.savetofile()
end;