• Бесплатный ВЕБИНАР по OSINT с Екатериной Тьюринг: ➡️9 февраля в 19:00 (мск) пройдет урок

    Как безопасно искать информацию в открытых источниках

    🔥 Записаться 🔥

перевести из Delphi в Visualc++2005

  • Автор темы Автор темы Val
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
V

Val

ДАНА ЧАСТЬ ТЕКСТОВОГО РЕДАКТОРА! ПОМОГИТЕ ПЕРЕДЕЛАТЬ НЕСКОЛЬКО ПРОЦЕДУР!

procedure TForm1.OpenClick(Sender: TObject);

begin
If OpenDialog1.Execute
Then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Norm.Enabled := True;
end;
end;

procedure TForm1.NormClick(Sender: TObject);
Var
s: String;
i,j: Integer;
iskl: string;
begin

iskl:='0123456789'+
'ABCDEFGHIJKLlMNOPQRSTUVWXYZ'+
'.,?!:;-+}{)(*&^%$<>%$#@/|\_`"'+#39;
//+#13+#10;
s:=AnsiUpperCase(Memo1.Text);

{УДАЛЕНИЕ СЛУЖЕБНЫХ СИМВОЛОВ}
For i:=0 to Length(iskl) do
s:=StringReplace(s,iskl,'',[rfReplaceAll]);
s:=StringReplace(s,'ё','Е',[rfReplaceAll]);
s:=StringReplace(s,'Ё','Е',[rfReplaceAll]);
{УДАЛЕНИЕ СДВОЕНЫХ ПРОБЕЛОВ/ЗАМЕНА НА ОДИНАРНЫЕ}
repeat
j:=Pos(' ',s);
if j>0 then s:=StringReplace(s,' ',' ',[rfReplaceAll]);
until j<=0;

Memo2.Text:=s;
Code.Enabled := True;
Save.Enabled := True;
end;

procedure TForm1.SaveClick(Sender: TObject);
begin
If SaveDialog1.Execute Then
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;
 

Вложения

Неужели лень MSDN открыть?
для загрузки текста с файла:
Код:
	  try 
{
// Create an instance of StreamReader to read from a file.
// The using statement also closes the StreamReader.
using (StreamReader sr = new StreamReader("TestFile.txt")) 
{
String line;
// Read and display lines from the file until the end of 
// the file is reached.
while ((line = sr.ReadLine()) != null) 
{
Console.WriteLine(line);
}
}
}
catch (Exception e) 
{
// Let the user know what went wrong.
Console.WriteLine("The file could not be read:");
Console.WriteLine(e.Message);
}
также у String есть Replace и ToUpper
 
Мне нужно немного не то.
То что Вы написали я поняла!
Но мне нужно не в консоле,а сделать как в текстовом редакторе:
на форме создается меню и в нем кнопка.например, "создать", также используется OpenDialog
как мне открыть текстовый файл и занести его содержимое, например в TextBox (как в Memo в Delphi).
Может я глупые и элементарные вопросы задаю,но мне сложно разобраться с Visual Studio C++ 2005!
Тем более мне надо делать под Net! Препод издевается! Заставил самим разбираться с нуля!
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!