Плиз помогите студентке не очень шарящей в BASIC

[MashaGTO]

1: Удалить из текста каждое 3 слово
2: Заменить в тексте все слова содержащие английские буквы символом &

Вот задания , знаю что решаются в 2 т=строчки но ненаю КАК =( Даже не знаю кого еще попросить помочь мне. Реально очень нужно для сессии .... Помогите пож. мальчики . Чмоки вас всех

[Kovu]

1. Сплитом разбить текст на массив слов и очистить в цикле каждый третий элемент.
Я не говорю что это оптимально

[MashaGTO]

А может кто нибуть сам текст проги написать ?

[Kovu]

Код: Выделить всё

Option Explicit
Private Const strInput As String = "Every day I go to the swimming pool"
Dim StrTemp() As String, counter As Long
Private Sub Form_Load()
StrTemp = Split(strInput, " ")
For counter = LBound(StrTemp) To UBound(StrTemp) Step 3
    If counter = 0 Then
        DoEvents
    Else
        StrTemp(counter - 1) = vbNullString
    End If
Next counter
For counter = LBound(StrTemp) To UBound(StrTemp)
    Text1.Text = Text1.Text + " " + StrTemp(counter)
Next counter
End Sub


[MashaGTO]

а второе как ? Огромное спасибо за первое ... Даже не наю как отблагадорить тебя ... Че нить придумаю

[Хакер]

Вот второй....

Код: Выделить всё


sText="Тут будет HCAJ текст с kjjjhdsf латинскими буквами"
For i = 1 To Len(sText)
Mid$(sText, i, 1) = IIf(Mid$(sText, i, 1) Like "[A-z]","&",Mid$(sText, i, 1))
Next i


[Алексей К.]

Заменить в тексте все слова содержащие английские буквы символом &

т.е. все слово заменяется на один символ & а не буква.

[RayShade]

Какой грамотный пример социального инжиниринга

[Хакер]

Тогда так

Код: Выделить всё


sText="Тут будет HCAJ текст с kjjjhdsf латинскими буквами"

'_________________

Function DoReplacements(ByVal sInput As String) As String
Dim sWords() As String
Dim iLatSigns As Integer
  sWords = Split(sInput, " ")
  For i = LBound(sWords) To UBound(sWords)
   iLatSigns = IsLatWord(sWord(i))
   'Тут всё зависет от того, в каком случае следует менять слово
   'если в нём есть хоть одна лат. буква или если все его буквы - лат.
   'Я расчитываю на 1-вый вариант, если же надо как 2
   'То просто нужно просто заменить iLatSigns > 0
   'на iLatSigns = Len(sWords(i))
   if iLatSigns > 0 Then
     sWords(i) = String(Len(sWords(i)), "&")
   End If
  Next i
  DoReplacements = Join(sWords, " ")
End Function

Function IsLatWord(ByVal sWord As String) As Integer
   For i = 1 To Len(sWord)
     If mid$(sWord, i, 1) Like "[A-z]" Then
       IsLatWord = IsLatWord+1
     End If
   Next i
End Function


[tyomitch]

Не могу не напомнить, что у Split и Join пробел -- разделитель по умолчанию, и явно указывать его необязательно.

[alibek]

Какой грамотный пример социального инжиниринга

Не помнишь, кто там был тебе очень благодарен?

[Хакер]

tyomitch, это для понятности (т.е. наглядности) кода.

alibek, RayShade вы о чём?

[alibek]

О разводах, о чем же еще.