在拉撒路中提取.txt的特定点

Question

我有一个文本文件，我想提取它的特定值，例如我有一行：

002345,6,7,8,9,10,25,

我只想要提取值7 9和25。我似乎没有办法让这个工作，我认为有人可能能够帮助我。 PS：我在Lazarus编程

Answer 1

以下代码：

uses
  strutils;
var
  seq, v1, v2, v3: string;
begin
  seq := '002345,6,7,8,9,10,25,';
  v1 := ExtractWord(3, seq, [',']);
  v2 := ExtractWord(5, seq, [',']);
  v3 := ExtractWord(7, seq, [',']);
  writeln('3º: ', v1);
  writeln('5º: ', v2);
  writeln('7º: ', v3);
end.

将输出：

3º: 7
5º: 9
7º: 25