Private Sub Command1_Click()
Dim Words() As String
Dim Cnt As Integer
Dim MyStore As String
Text1.Text = Replace(Text1.Text, vbCrLf, " ")
Words() = Split(Text1.Text, " ")
For Cnt = 1 To UBound(Words)
If UCase(Words(Cnt)) = Words(Cnt) Then MyStore = MyStore & _
Words(Cnt) & vbCrLf
Next
Open "d:\myfile.txt" For Append As 1
Print #1, MyStore
Close 1
End Sub
Нужно сделать исходничик
Люди нужна помощь...
У меня есть текст в нем много слов с БОЛЬШИМИ буквами и мне надо сделать на исходничик, который будет искать эти слова и сохранять их в текстовый файл.
Помогите чем можете ;-)
У меня есть текст в нем много слов с БОЛЬШИМИ буквами и мне надо сделать на исходничик, который будет искать эти слова и сохранять их в текстовый файл.
Помогите чем можете ;-)
Цитата: Zero45(:)
Люди нужна помощь...
У меня есть текст в нем много слов с БОЛЬШИМИ буквами и мне надо сделать на исходничик, который будет искать эти слова и сохранять их в текстовый файл.
Помогите чем можете ;-)
У меня есть текст в нем много слов с БОЛЬШИМИ буквами и мне надо сделать на исходничик, который будет искать эти слова и сохранять их в текстовый файл.
Помогите чем можете ;-)
Вообще-то для студентов такие задачки уже делали... А раздел для студентов не тут. Держи
Код:
Спасибо большое...
Но еще бы хорошо было если не искал бы цифры, знаки?
Но еще бы хорошо было если не искал бы цифры, знаки?
Цитата: Zero45(:)
Спасибо большое...
Но еще бы хорошо было если не искал бы цифры, знаки?
Но еще бы хорошо было если не искал бы цифры, знаки?
Держи:
Код:
Private Sub Command1_Click()
Dim Words() As String
Dim Cnt As Integer
Dim MyStore As String
Text1.Text = Replace(Text1.Text, vbCrLf, " ")
Words() = Split(Text1.Text, " ")
For Cnt = 1 To UBound(Words)
If UCase(Words(Cnt)) = Words(Cnt) And Val(Words(Cnt))=0 Then & _
MyStore = MyStore Words(Cnt) & vbCrLf
Next
Open "d:\myfile.txt" For Append As 1
Print #1, MyStore
Close 1
End Sub
Dim Words() As String
Dim Cnt As Integer
Dim MyStore As String
Text1.Text = Replace(Text1.Text, vbCrLf, " ")
Words() = Split(Text1.Text, " ")
For Cnt = 1 To UBound(Words)
If UCase(Words(Cnt)) = Words(Cnt) And Val(Words(Cnt))=0 Then & _
MyStore = MyStore Words(Cnt) & vbCrLf
Next
Open "d:\myfile.txt" For Append As 1
Print #1, MyStore
Close 1
End Sub
Данный пример будет искать слова и комбинации слов с цифрами, но отдельно цифры брать не будет
Помогите... А как сделать исходник каторый с такого текст:
ИЗМЕРЕТЬ,
ИЗМЕРЗАТЬ,
ИЗМЕРЗЕТЬ,
ИЗМЕЩАТЬ,
ИЗМИГУЛИВАТЬ
ИЗМИГУН
ИЗМИЛОВАТЬ
ИЗМИНАТЬ,
ИЗМИНУТЬ
ИЗМИРАТЬ,
ИЗМЕРЕТЬ,
ИЗМЕРЗАТЬ,
ИЗМЕРЗЕТЬ,
ИЗМЕЩАТЬ,
ИЗМИГУЛИВАТЬ
ИЗМИГУН
ИЗМИЛОВАТЬ
ИЗМИНАТЬ,
ИЗМИНУТЬ
ИЗМИРАТЬ,
Цитата:
ИЗМЕРЕТЬ,
ИЗМЕРЗАТЬ,
ИЗМЕРЗЕТЬ,
ИЗМЕЩАТЬ,
ИЗМИГУЛИВАТЬ
ИЗМИГУН
ИЗМИЛОВАТЬ
ИЗМИНАТЬ,
ИЗМИНУТЬ
ИЗМИРАТЬ,
делал такой:
Цитата:
ИЗМЕРЕТЬ,
ИЗМЕРЗАТЬ,
ИЗМЕРЗЕТЬ,
ИЗМЕЩАТЬ,
ИЗМИГУЛИВАТЬ
ИЗМИГУН
ИЗМИЛОВАТЬ
ИЗМИНАТЬ,
ИЗМИНУТЬ
ИЗМИРАТЬ,
А где находится текст, в TextBox или хранится в файле?
Если текст в Word'e, то простой заменой
Заменить: ^p^p (p - маленькая английская)
На: ^p (p - маленькая ангийская)
Заменить все
а если текст не в Word'e, то можно его вставить на время туда )
Заменить: ^p^p (p - маленькая английская)
На: ^p (p - маленькая ангийская)
Заменить все
а если текст не в Word'e, то можно его вставить на время туда )
Цитата: pavel55
Если текст в Word'e, то простой заменой
Заменить: ^p^p (p - маленькая английская)
На: ^p (p - маленькая ангийская)
Заменить все
а если текст не в Word'e, то можно его вставить на время туда )
Заменить: ^p^p (p - маленькая английская)
На: ^p (p - маленькая ангийская)
Заменить все
а если текст не в Word'e, то можно его вставить на время туда )
Имхо аффтар хотел программно ))
Просто:
Например, в переменной abc у тебя весь начальный текст, тогда:
Код:
abc=Replace(Replace(abc,vbCrLf,vbNullString),",",","+vbCrLf)
вот так. одна конструкция Replace убивает все переводы строк, а другая - заменяет все запятые на сочетание запятая+один_перевод_строки:D
Цитата: SPB-667
А где находится текст, в TextBox или хранится в файле?
ДА :)
Цитата: Zero45(:)
ДА :)
Ну тогда так:
Код:
Text2.Text=Replace(Replace(Text1.Text,vbCrLf,vbNullString),",",","+vbCrLf)