Автор Олег Овчинников задал вопрос в разделе Программное обеспечение
Как сделать выборку всех слов с определенным окончанием? и получил лучший ответ
Ответ от Nomer[гуру]
советую через файндстр искать ова хотябы.. .
вот тут отсекают символ переноса
http:// www. insidepro. com/kk/261/261r.shtml
Ответ от Ormandiore[гуру]
если удобнее делать в excel, то можно сначала открыть в worde, преобразовать в таблицу, сделав разделителем пробел, тогда в каждой ячейке будет по одному слову. сохранить и открыть в excele.
можно написать на любом языке программирования коротенькую программку, которая нужным способом обработает этот файл
если удобнее делать в excel, то можно сначала открыть в worde, преобразовать в таблицу, сделав разделителем пробел, тогда в каждой ячейке будет по одному слову. сохранить и открыть в excele.
можно написать на любом языке программирования коротенькую программку, которая нужным способом обработает этот файл
Ответ от Ottvett[гуру]
Скопируйте txt файл в папку с коротким именем - чисто для удобства
В Excel или Word запустите следующий макрос
Sub zzEnd()
On Error GoTo mErr
Dim FName As String, FN As String, FrFi1 As Integer, FrFi2 As Integer
Dim St As String, Ex As String, LEx As Long
FName = InputBox("Полное имя файла")
Ex = InputBox("Окончание")
LEx = Len(Ex)
FrFi1 = FreeFile
Open FName For Input As FrFi1
FN = Left(FName, Len(FName) - 4) & "-" & Ex & ".txt"
FrFi2 = FreeFile
Open FN For Output As FrFi2
Do Until EOF(FrFi1)
Line Input #FrFi1, St
If Len(St) >= LEx Then
If Right(St, LEx) = Ex Then Print #FrFi2, St
End If
Loop
mErr:
Close
MsgBox "Все"
End Sub
Скопируйте txt файл в папку с коротким именем - чисто для удобства
В Excel или Word запустите следующий макрос
Sub zzEnd()
On Error GoTo mErr
Dim FName As String, FN As String, FrFi1 As Integer, FrFi2 As Integer
Dim St As String, Ex As String, LEx As Long
FName = InputBox("Полное имя файла")
Ex = InputBox("Окончание")
LEx = Len(Ex)
FrFi1 = FreeFile
Open FName For Input As FrFi1
FN = Left(FName, Len(FName) - 4) & "-" & Ex & ".txt"
FrFi2 = FreeFile
Open FN For Output As FrFi2
Do Until EOF(FrFi1)
Line Input #FrFi1, St
If Len(St) >= LEx Then
If Right(St, LEx) = Ex Then Print #FrFi2, St
End If
Loop
mErr:
Close
MsgBox "Все"
End Sub
Ответ от Констанитин Ж[активный]
Это сделать очень просто.
Включаете автофильтр, затем выбираете условие "заканчивается на" и пишете туда
ова
нажимаете "Ок", получаете только те строки, которые заканчиваются на "ова" )
Это сделать очень просто.
Включаете автофильтр, затем выбираете условие "заканчивается на" и пишете туда
ова
нажимаете "Ок", получаете только те строки, которые заканчиваются на "ова" )
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Как сделать выборку всех слов с определенным окончанием?
помогите!! ! У кого есть готовая база данных по Access, скиньте плиииз, очень нужно!!!
Программа "Кулинарные рецепты"
Программа предназначена для ведения базы данных
подробнее...