在lazarus中提取.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

在lazarus中提取.txt的特定点

Extracting specific points of a .txt in lazarus

lazarus