VPF::[Любой]заменить символ "=" в конце каждой строки

Наташечка

Дата 11.4.2008, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.4.2008

Репутация: нет
Всего: нет

Мальчики помогите!

Нужно в текстовом документе заменить символ "=" в конце каждой строки, при этом не менять другие "=" в самом тексте.

Большое спасибо.

Наташечка

Дата 11.4.2008, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.4.2008

Репутация: нет
Всего: нет

Не нашла как поменять Заголовок, модератор смени.

...
сайт.com/ischem=2&find=
сайт.com/poisk=1&q=
...

-> надо сменить два крайние знака "=" на другой символ, не трогая остальные знаки равно.

Список ссылок находится в Блокноте.

THandle

Дата 11.4.2008, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Rodman, тут нужно поменять в Блокноте как мне кажется.

Как сделать это через сам блокнот я не знаю smile

Но написал программку. Она в аттаче. Для интересующихся(а вдруг smile

) выкладываю и исходный код smile

Код



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Pars(var s : string);
var
  i : integer;
begin
  for i := 3 to length(s) do
    if ((s[i-2] = '=') and (s[i-1] = #13) and (s[i] = #10)) then
      s[i-2] := Form1.Edit1.Text[1] else
    if ((s[i] = '=') and (i = length(s))) then
      s[i] := Form1.Edit1.Text[1];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  h : THandle;
  size : integer;
begin
    h := FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil);
  if h <> 0 then
    begin
      size := SendMessage(h, WM_GETTEXTLENGTH, 0, 0);
      if size > 0 then
        begin
          SetLength(s, size);
          SendMessage(h, WM_GETTEXT, size + 1, LParam(s));
          Pars(s);
          SendMessage(h, WM_SETTEXT, 0, LParam(s));
        end;
    end;
end;

end.

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

Присоединённый файл ( Кол-во скачиваний: 1 )

rep.rar 170,36 Kb

opjox

Дата 11.4.2008, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 17.1.2008

Репутация: 11
Всего: 14

Давно писал под линь аналогичное, сейчас чуть адаптировал под эту задачу.

Код


#include <iostream>
#include <fstream>
#include <string>

int main(int argc, char ** argv)
{
  if(argc<3) {
    std::cout << "USE: program_name path/to/file/name new_char";
    return 0;
  }
  std::ifstream in(argv[1]);
  if(!in.is_open()) {
    std::cout << "Can not open file " << argv[1] << std::endl;
    return 0;
  }
  std::ofstream out("out");
  if(!out.is_open()) {
    in.close();
    std::cout << "Can not open out file\n";
    return 0;
  }
  
  std::string line;
  while(!in.eof()) {
    getline(in, line);
    if(line[line.length()-1]=='=') line[line.length()-1]=argv[2][0];
    out << line << std::endl;
  }
  
  in.close();
  out.close();
  return 0;
}

THandle

Дата 11.4.2008, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

opjox,

Цитата(Наташечка @ 11.4.2008, 18:20

)

Список ссылок находится в Блокноте.

Да и мне честно говоря кажется что задача к программированию совсем не относится.

opjox

Дата 11.4.2008, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 17.1.2008

Репутация: 11
Всего: 14

THandle, да, не обратил внимания)

Ну, я надеюсь все ж не далеко ушел от поставлееной задачи, ведь вроде ниодна религия мира не запрещает пользоваться кнопкой save. smile

source777

Дата 11.4.2008, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1878
Регистрация: 12.3.2007

Репутация: 5
Всего: 56

Цитата(opjox @ 11.4.2008, 21:45

)

Ну, я надеюсь все ж не далеко ушел от поставлееной задачи, ведь вроде ниодна религия мира не запрещает пользоваться кнопкой save. smile

Да, фиг их знает, сейчас много развелось smile

P.S. Для блокнота реально сложная задача, вот если б его проапгрейдить до Notepad2 или Notepad++ smile

тогда расплюнуть...

--------------------

Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте

Rififi

Дата 12.4.2008, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1254
Регистрация: 9.3.2008

Репутация: 4
Всего: 36

Наташечка,
качаешь программу sed
в консоли изображаешь примерно такое:

$ sed -e s/$.*$=$.*$=$/\1-\2-/ test.txt > test2.txt

символы, помеченные красным, меняешь на свои.
запускаешь, получаешь оезультат, радуешься (:
и никаких монстриков в виде delphi/c++

было:

Код


сайт.com/ischem=2&find=
сайт.com/poisk=1&q=

стало:

Код


сайт.com/ischem-2&find-
сайт.com/poisk-1&q-

Mayk

Дата 12.4.2008, 14:52 (ссылка)

(нет голосов)

Загрузка ...

^аВаТаР^ сообщение>>

Профиль
Группа: Участник
Сообщений: 2616
Регистрация: 22.5.2005
Где: за границей разум а

Репутация: 5
Всего: 134

Rififi, у тебя лишние исправления.

Цитата(Rififi @ 12.4.2008, 18:17

)

было:
сайт.com/ischem=2&find=
сайт.com/poisk=1&q=

стало:

сайт.com/ischem-2&find-
сайт.com/poisk-1&q-

имхо достаточно

Цитата

$ sed -e 's/=$/новые символы/' test.txt

PS. В нормальной текстовом редакторе это же делается с закрытыми глазами:

Цитата

:%s/=$/новые символы/

Это сообщение отредактировал(а) Mayk - 12.4.2008, 14:57

--------------------

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »