- Код: Выделить всё
Private Delegate Sub _dChangeVal(Val as String)
Private m_Del as new _dChangeVal(adressOf ChangeVal)
Private sub ChangeVal(val as String)
'some code here
end sub
Модератор: Ramzes
Private Delegate Sub _dChangeVal(Val as String)
Private m_Del as new _dChangeVal(adressOf ChangeVal)
Private sub ChangeVal(val as String)
'some code here
end sub
private delegate void _dChangeVal(string val);
private _dChangeVal m_Del = new _dChangeVal(ChangeVal);
private void ChangeVal(string val)
{
//some code here
}
// если бы метод был статическим, то заработало бы...
class abc
{
private delegate void _dChangeVal(string val);
private _dChangeVal m_Del = ChangeVal;
private static void ChangeVal(string val)
{
//some code here
}
}
// иначе придется так...
class def
{
private delegate void _dChangeVal(string val);
private _dChangeVal m_Del;
private void ChangeVal(string val)
{
//some code here
}
public def()
{
m_Del = ChangeVal;
}
}
Const strwordReplace As String = "17235000000"
Dim strword() As String = {"17235836000", _
"17235820000", _
"17235812000", _
"17235808000", _
"17235573000"}
Dim X As Integer
RichTextBox1.SelectAll()
Dim sData As String = RichTextBox1.SelectedText
Dim zagolovokAfterReplace As String = "Внимание!!!"
Dim textInmessageAfterReplace As String = " Замены произведены!" & _
Chr(10) & "Сохраните исправленный файл!!!"
For X = 0 To 4 Step 1
On Error Resume Next
sData = Replace(sData, strword(X), strwordReplace)
Next X
RichTextBox1.SelectedText = sData
MessageBox.Show(textInmessageAfterReplace, zagolovokAfterReplace, MessageBoxButtons.OK, MessageBoxIcon.Information)
const string strwordReplace = "17235000000";
string[] strword = { "17235836000", "17235820000", "17235812000", "17235808000", "17235573000" };
int X;
richTextBox2.SelectAll();
string sData = richTextBox2.SelectedText;
string zagolovokAfterReplace = "Внимание!!!";
string textInmessageAfterReplace = " Замены произведены!" + "Сохраните исправленный файл!!!";
for (X = 0; X <= 4; )
{
sData = Replace(sData, strword(X), strwordReplace);
}
richTextBox2.SelectedText = sData;
MessageBox.Show(textInmessageAfterReplace, zagolovokAfterReplace, MessageBoxButtons.OK, MessageBoxIcon.Information);
GSerg писал(а):Не верю, что "портированный" код получен автоматическим переводчиком... Сильно сомневаюсь, чтобы он допускал такие детские ошибки...
А если это портировал ты ручками, то сходи по ссылке выше, а потом изучи основы C#, самые-самые, а то даже неудобно.
cosmo_vk писал(а):Неужели функцию Replace придется самому описывать?
cosmo_vk писал(а):И почему Strword так коряво вылезает?
tyomitch писал(а):cosmo_vk писал(а):Неужели функцию Replace придется самому описывать?
Угу. Либо использовать независимую от языка стандартную функцию CLR.
cosmo_vk писал(а):tyomitch писал(а):cosmo_vk писал(а):Неужели функцию Replace придется самому описывать?
Угу. Либо использовать независимую от языка стандартную функцию CLR.
Это в каком смысле независимую? Можно пример, хотя бы в направлении замен в тексте?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0