Определить, является ли next в простом предложении наречием - VB

  1. тут самое главное определить формальные признаки: 1.next- наречие в начале и конце предложения. 2.перед словами типа day,year,morning,week,etc... Вот.... моих знания явно не хватает....Если у кого есть какие-нибудь идеи,помогите,пожалуйста!


textual

Код к задаче: «Определить, является ли next в простом предложении наречием - VB»

Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub Adverb_IE()
Dim appIE As Object, tempHTML As Variant, strErr As String, A%, i%, St$, pos As Long, pos2 As Long, Adverb()
 
On Error GoTo Fehler
Adverb() = Array("рядом", "дальше", "затем", "около", "после", "потом", "снова") '"следующий раз" (2 слова)
 
i = Cells(Rows.Count, 1).End(xlUp).Row
If i = 1 Then MsgBox "Вы должны ввести хотя бы одно предложение в колонку A (ячейка A2)": Exit Sub
For i = 2 To i
If Cells(i, 1).Value <> "" Then
 
  Set appIE = CreateObject("InternetExplorer.application")
  appIE.Visible = False 'True, чтобы отображать окно IE
  
  St = LCase(Replace(Cells(i, 1).Value, " ", "%20"))
  appIE.Navigate "http://translate.google.ru/?hl=ru&tab=wT#en|ru|" & St
  
  A = 0
  While Not appIE.ReadyState = 4
    Sleep (20)
    A = A + 1
      If A > 500 Then
        strErr = "Проверьте подключение к сети интернет!"
      End If
    DoEvents
  Wend
 
  A = 0
  Do
  Sleep (25): DoEvents: A = A + 1: If A > 100 Then i = i - 1: Exit Do
  tempHTML = appIE.Document.body.InnerHtml
  Loop Until InStr(tempHTML, "result_box lang=ru")
  
  appIE.Quit
 
  pos = InStr(tempHTML, "result_box")
  St = LCase(Mid(tempHTML, pos, 500))
  
  For A = LBound(Adverb) To UBound(Adverb)
    If InStr(St, Adverb(A)) Then Exit For
  Next
  
  'Два слова
  If InStr(St, "следующий") And InStr(St, "раз") Then
    ReDim Preserve Adverb(UBound(Adverb) + 1)
    Adverb(UBound(Adverb)) = "следующий раз"
  End If
  
  Cells(i, 3).Clear
  If A > UBound(Adverb) Then
    Cells(i, 3) = "Next - не наречие"
  Else
    Cells(i, 2) = Adverb(A)
    Cells(i, 3) = "Next - наречие"
    Cells(i, 3).Font.Bold = True
  End If
 
End If
Next
 
Set appIE = Nothing
Exit Sub
 
Fehler:
If appIE > "" Then appIE.Quit
Set appIE = Nothing
End Sub

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.000 из 5



Похожие ответы
  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Определить, лежит ли данная точка на одной из сторон треугольника, заданного координатами его вершин. Далёк от информатики, нужно написать программу в VBA

  1. Двумерный массив n*m заполнен рандомно. Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. Помогите наладить программу, не могу понять почему определяет местами не правильно.

  1. Даны три стороны треугольника a, b, c. Определить, является ли такой треугольник равнобедренным, равносторонним или разносторонним. НУЖЕН ПРОГРАММНЫЙ КОД В VISUAL BASIC, БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН.

  1. Помогите пожалуйста решить задачи Даны три вещественных числа. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел.

  1. Умоляю,помогите кто чем может(( Не получается решить задачу в visual basic: В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, у1, х2, у2, x3, y3 и т.д. Определить три точки, являющиеся вершинами треугольника, для которого разность точек вне его и внутри является минимальной. Нет,я не лентяйка, которая сидит и ждет решения на блюдечке и не обращалась бы ни к кому, если бы не такая ситуация(курсовая работа готова,кроме этой задачи,сижу над ней неделю и не выходит ничего,а сроки сдачи уже подходят).Пожалуйста,Если вы что-то знаете по этому поводу,прошу,помогите.

  1. Помогите пожалуйста с решением. Примерно в голове алгоритм есть, а как реализовать не могу понять;( срочно надо!

  1. На столе лежит 10 кастрюль, которые необходимо заполнить водой. В первую кастрюлю помещается 0,5 л воды, а в каждую следующую на 0,5 л больше, чем в предыдущую. Сколько воды потребуется для заполнения всех кастрюль? Нужна программа на VB и желательно блок-схема. Заранее спасибо

  1. Два прямоугольника , расположенные в первом квадранте , со сторонами параллельными осям координат ,заданы координатами своих левого верхнего и правого нижнего углов. Для первого прямоугольника это точки ( X1 , Y1 ) и (X2 , 0) , для второго ( X3, Y3) , ( X4, 0) составить программу , определяющую, пересекаются ли данные прямоугольники , и вычисляющую площадь общей части , если они пересекаются . ответ сопроводить появлением изображения на форме двух прямоугольников разных цветов и соответствующих размеров ??????

  1. Даны три целых числа: А, В, С. Проверить, верно ли утверждение: «Хотя бы одно из чисел А, В, С положительное».программа Visual Basic