Переделывание текста

[Hotwire]

Здравствуйте!
Если честно то к Excel я не имею ни малейшего отношения. Я прогаю на фасме.
У меня такая проблема: у меня есть Сишный инклюд либы, а мне надо сделать из наго фасмовский. Писать такую прогу на асме долговато да и нет смысла, а друг посоветовал мне воспользоваться Excel'ем. И вот я здесь.
Вообщем у меня есть ячейка, в которой написано, к примеру, __glewColorBlend , а мне надо glColorBlend. Как это сделать?

[pashulka]

В общем случае : проще просто ввести новый текст, пример для незащищённой ячейки "A1" активного рабочего листа может выглядить следующим образом, Range("A1").Value = "glColorBlend"

В данном случае : если текста, который подлежит замене довольно много, то можно составить таблицу соответствий, в которой в одном из столбцов - будет наличествовать заменяемый текста, а в другом столбце - новый текст. После этого Вам останется только заменить старый текст на новый в соответствии с этой таблицей (пример прилагается)

[Hotwire]

Спасибо!
Покавыряюсь немного, а если че непонятно будет, то сообщу.
Все функции начинаются с __glew..... ,а надо что бы начинались с gl.

[pashulka]

В таком случае (при условии, что символы __glew наличествуют только в начале функций) Вы вполне можете обойтись и без программирования, т.к. замену можно осуществить используя стандартное диалоговое окно. Для этого предварительно выделите нужный диапазон, затем, в меню Сервис выберите команду Заменить (CTRL+H), в поле Что: введите __glew а в поле Заменить на: введите gl и кликните кнопку Заменить всё.

[Hotwire]

Спасибо! (Расцелую)
А как мне теперь сделать так, чтобы у меня в ячейке было
Например:
glColorBlend,'__glewColorBlend',\
Наверно я уже задолбал, но как только инклюд переделаю сразу перестануть задавать ламерские вопросы.

[pashulka]

Если Вы хотите заменить __glewColorBlend на glColorBlend,'__glewColorBlend',\ и это не единственная замена, то имеет смысл всё же воспользоваться таблицей соответствий, или воспользоваться поиском (или "пробежаться" по всем ячейкам) и осуществить поиск __glew с дальнейшей заменой на новый текст. Пример программного поиска с заменой прилагается.

Private Sub Find_And_Replace()
    With ThisWorkbook.Worksheets(1)
         'Укажите нужную книгу и рабочий лист
         If .ProtectContents = True Then
            MsgBox "Давайте не будем ничего менять", , ""
            Exit Sub
         End If
         Dim iCell As Range
         Set iCell = .Columns("A").Find _
         (What:="__glew*", LookIn:=xlValues, LookAt:=xlWhole)
         'Укажите нужный столбец или диапазон, например, .Range("A2:C100")
         Do Until iCell Is Nothing
            iCell.Value = GetNewText(iCell.Value)
            Set iCell = .Columns("A").FindNext
         Loop
    End With
End Sub
 
Private Function GetNewText$(iText$)
    GetNewText$ = _
    Application.Substitute(iText$, "__glew", "gl") & ",'" & iText$ & "'\"
    'Replace(iText$, "__glew", "gl") & ",'" & iText$ & "'\" 'XL2000
End Function

[Hotwire]

Нет это единственная замена. У меня водном столбце glFunc, а в другом __glewFunc. И все, больше никаких замен нету.

[pashulka]

Уточнение: Термин единственная замена означал замену вполне определённого текста, который представляет собой имя нужной(единственной) функции, на другой текст. И в этом случае достаточно просто воспользоваться предыдущим советом (сообщение #4), если же замена касается различных функций, но имеющих одинаковый префикс, то в этом случае можно воспользоваться одним из нескольких ранее представленных вариантов.

[Hotwire]

Как объеденить текст с нексольких ячеек в строке в одну?

[Hotwire]

Cам докумекал. Уже не надо