powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разыскивается функция работы с текстом
7 сообщений из 7, страница 1 из 1
Разыскивается функция работы с текстом
    #34723711
babken
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На вход: полное имя текстового файла, номер строки, которую надо удалить.
На выход: true если удалось удалить строку, иначе false.

С уважением,
...
Рейтинг: 0 / 0
Разыскивается функция работы с текстом
    #34723768
Фотография Rampage
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
обязательно функция? а не проще в вба написать макрос?
...
Рейтинг: 0 / 0
Разыскивается функция работы с текстом
    #34723914
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
babkenНа вход: полное имя текстового файла, номер строки, которую надо удалить.
На выход: true если удалось удалить строку, иначе false.

С уважением,
300 рублей и я тебе эту функцию тут же напишу!
...
Рейтинг: 0 / 0
Разыскивается функция работы с текстом
    #34723921
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не, 500. Иначе не соглашусь. :)
...
Рейтинг: 0 / 0
Разыскивается функция работы с текстом
    #34723960
babken
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Именно это я и имел в виду.
function (full_path as string,num_str as integer) as boolean

end fucntion

C уважением,
...
Рейтинг: 0 / 0
Разыскивается функция работы с текстом
    #34723977
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
babkenИменно это я и имел в виду.
function (full_path as string,num_str as integer) as boolean

end fucntion

C уважением,

Я тоже это имел ввиду))
...
Рейтинг: 0 / 0
Разыскивается функция работы с текстом
    #34725111
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
babkenИменно это я и имел в виду.
function (full_path as string,num_str as integer) as boolean

end fucntion

На всякий пожарный: подобная функция будет работать только при вызове ее из-под VBA и никогда из формулы.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Option Explicit

Function RowDelete(full_path As String, index_sheet As Variant, num_row As Long) As Boolean
    If Dir(full_path) = "" Then GoTo errHandler
    Dim wb As Workbook
    Dim ws As Worksheet
    On Error GoTo errHandler
    Set wb = Workbooks.Open(full_path)
    Set ws = wb.Worksheets(index_sheet)
    ws.Rows(num_row).Delete
    Set ws = Nothing
    wb.Close True
    Set wb = Nothing
    RowDelete = True
    Exit Function
errHandler:
    Set ws = Nothing
    If Not wb Is Nothing Then wb.Close (False)
    Set wb = Nothing
    RowDelete = False
End Function

Sub test()
    Application.DisplayAlerts = False
    MsgBox RowDelete("h:\name.xls",  1 ,  10 )
    Application.DisplayAlerts = True
End Sub
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разыскивается функция работы с текстом
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]