Как найти первую запятую в строке

I’m extracting rows from a txt file.

This row contains values like this:

 DESCRIPTION 1    1.234,00    15.980,00 [etc.]

I would like to extract these values (I mean only numeric values).

So I thought to find first comma, execute a for cycle backwards until first White space and execute a For cycle forward for decimals digits.
The I should go to the second comma and perform these cycles again.

Can you suggest some code that could be useful for my solution?

My Visual Basic knowledge is pretty limited, but can’t you utilize the IsNumeric function available in VB.NET?

Someting like this:

' initial string/row/etc
    Dim s As String = "DESCRIPTION 1 1.234,00 15.980,00"

    ' Split string based on spaces
    Dim words As String() = s.Split(New Char() {" "c})
    ' Use For Each loop over split and display them
    Dim word As String
    For Each word In words
        If IsNumeric(word) Then
            Console.WriteLine(word & " is numeric")
        Else
           Console.WriteLine(word & " is not numeric")
        End If
    Next

answered Jan 28, 2014 at 14:41

Поместите все символы без запятой перед запятой в группу 1. Сопоставьте запятую. Получите все символы до конца строки/конца ввода в группу 2.

^([^,]*),(.*)$

Заменить на группу 1 + ” ” + группу 2.

1 2

Или…

1. Скачать сед.
2. Запустите это с sed 's/,/ /' blah1 > blah2
3. ?
4. Прибыль

Создан 13 фев.

Я извлекаю строки из текстового файла.

Эта строка содержит такие значения:

 DESCRIPTION 1    1.234,00    15.980,00 [etc.]

Я хотел бы извлечь эти значения (я имею в виду только числовые значения).

Поэтому я подумал найти первую запятую, выполнить цикл for назад до первого пробела и выполнить цикл For вперед для десятичных цифр. Я должен перейти ко второй запятой и выполнить эти циклы снова.

Можете ли вы предложить код, который может быть полезен для моего решения?

Из вашего описания, если вам просто нужно десятичное число перед запятой, то вы можете сделать это с довольно простым регулярным выражением:

Dim s = "DESCRIPTION 1    1.234,00    15.980,00"
Dim pattern = "d+(.d+)?,d+"
Dim matches = System.Text.RegularExpressions.Regex.Matches(s, pattern)

For Each match in matches
    Console.WriteLine(match.Value)
Next

'Outputs:
'
'1.234,00
'15.980,00

Вот краткое описание регулярного выражения:

• d+ – d это сокращение для [0-9], что означает “любой числовой символ”. + просто указывает “один или несколько”
• . – это просто соответствует символу периода.
• , – это просто соответствует запятой.
• ( ... ) – круглые скобки просто создают группу (представьте, что это суб-регулярное выражение)
• ? – вопросительные знаки означают, что предыдущий пункт не является обязательным. В этом случае это означает, что соответствие группы (.d+)? не является обязательным, что позволяет сопоставить оба 0.000,00 а также 0,00

В этом регулярном выражении, если запятая и точка не являются обязательными, вы можете добавить ? после них.

Я думаю, вам нужно будет посмотреть на System.Text.Regex,

Match m = Regex.Match("DESCRIPTION 1    1.234,00    15.980,00", ".*?( [0-9]*?.(?'n1'[0-9]+),(?'n2'[0-9]+)))
While m.Success
    System.Diagnostics.Debug.WriteLine(m.Groups["n1"].Value + "  "+m.Groups["n2"].Value);

    m = m.NextMatch()
End While

Если столбцы имеют фиксированную ширину, вы можете получить такие значения:

Dim input As String = "DESCRIPTION 1    1.234,00    15.980,00"
Dim col1 As String = input.SubString(17, 12).Trim()
Dim col2 As String = input.SubString(29).Trim()

Мои знания по Visual Basic довольно ограничены, но вы не можете использовать IsNumeric функция доступна в VB.NET?

Примерно так:

' initial string/row/etc
    Dim s As String = "DESCRIPTION 1 1.234,00 15.980,00"

    ' Split string based on spaces
    Dim words As String() = s.Split(New Char() {" "c})
    ' Use For Each loop over split and display them
    Dim word As String
    For Each word In words
        If IsNumeric(word) Then
            Console.WriteLine(word & " is numeric")
        Else
           Console.WriteLine(word & " is not numeric")
        End If
    Next

хм.. . я канеш бредовей сделал, но вот

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
s:string;
n,p2,k:integer;
begin
s:=’tupo, stroka s, simvolami, nu i zapjataja est, da da’;
writeln(s);
writeln;
k:=0;
n:=length(s);
for n:=1 to n do
begin
if (s[n]=’,’) then
begin
k:=k+1;
p2:=n;
if k=1 then write(‘pervaja zapjataja – simvol nomer ‘,n);
end;
end;
writeln;
if k>1 then writeln (‘Poslednjaja zapjataja – simvol nomer ‘, p2);
writeln(‘end program’); readln;
end.

У меня работает