主页 / 问题 / 1244768
Accepted
Татьяна
Asked:2022-02-16 23:04:10 +0000 UTC2022-02-16 23:04:10 +0000 UTC

将部分字符串与整个字符串连接起来

  • 772

有一个带有行的文本文件：

saa222+file1:12345
dss777+file2:1234
vcd555+file3:123

需要从字符串中提取+字符之前的所有数字并将它们连接到字符串S，结果是：

saa222+file1:12345222
dss777+file2:1234777
vcd555+file3:123555

我在做什么，但到最后却连不上，也就是某处出错，但是在哪呢？

const
  numb = ['0' .. '9'];
     // работаем по строкам
          while not Eof(fall) do
          begin
            // читаем строку
            ReadLn(fall, s1);
        // читаем строку
            ReadLn(fall, S);
         
        
            // Обрезаем строку S1 до символа +
            s1 := Copy(s1, 1, Pos('+', s1) - 1);
        
            // Удаляем все буквы из строки S1
            for b := length(s1) downto 1 do
              if not(s1[b] in numb) then
                delete(s1, b, 1);
        
        // Склеиваем строки S+S1
             S:= S+S1;
            writeln(f1, S);
          end;
delphi

1 个回答

  1. Best Answer

    代替

     // читаем строку
        ReadLn(fall, s1);
    // читаем строку
        ReadLn(fall, S);

   // Обрезаем строку S1 до символа +
     s1 := Copy(s1, 1, Pos('+', s1) - 1);

    在

     // читаем строку
        ReadLn(fall, S);
        s1 := Copy(S, 1, Pos('+', S) - 1);

 const
  numb = ['0' .. '9'];
var
  s, s1: string;
  b: Integer;
begin
   s := 'saa222+file1:12345';
   s1 := Copy(s, 1, Pos('+', s) - 1);
            // Удаляем все буквы из строки S1
            for b := length(s1) downto 1 do
              if not(s1[b] in numb) then
                delete(s1, b, 1);
    s:= s + s1;
   Writeln(S);

>>saa222+file1:12345222
    • 1

相关问题