Function ReplaceAll(SourceString As String, ReplaceThis As String, WithThis As String)
Dim Temp As Variant
Temp = Split(SourceString, ReplaceThis)
ReplaceAll = Join(Temp, WithThis)
End Function
Private Sub Form_Load()
'этот пример меняет все найденные выражения "та" на "га", в тексте "рота"
MsgBox ReplaceAll("рота", "та", "га")
'А этот пример меняет все найденные выражения "квас" на "пиво", в тексте "На работе мы пьем только квас"
MsgBox ReplaceAll("На работе мы пьем только квас", "квас", "пиво")
End Sub
Нужна помощь в решении задачи.
Всем доброго времени суток. Помогите. Задача заключается в следующем:
1.надо, что бы прога сохраняла данные из txt-файла в tехtbox.
2.просматривала каждый символ и при необходимости заменяла его на другой данный.
3.сохраняла свою работу.
Так вот, помощь мне нада именно со вторым пунктом.
1.надо, что бы прога сохраняла данные из txt-файла в tехtbox.
2.просматривала каждый символ и при необходимости заменяла его на другой данный.
3.сохраняла свою работу.
Так вот, помощь мне нада именно со вторым пунктом.
Цитата:
Так вот, помощь мне нада именно со вторым пунктом.
А можно посмотреть код до 1)пункта:confused:
VB6
Поиск и замена
Код:
:rolleyes:;):rolleyes:
Да, конечно.
Private sub open_click()
open "e:\text.txt" for input as #1
do until EOF(1)
Line input #1, txt
Text=Text + txt + vbCrLf
Loop
close #1
text1.text = Text
а тебе зачем? Ты вроде как достаточно опытный в этом деле.
Private sub open_click()
open "e:\text.txt" for input as #1
do until EOF(1)
Line input #1, txt
Text=Text + txt + vbCrLf
Loop
close #1
text1.text = Text
а тебе зачем? Ты вроде как достаточно опытный в этом деле.
Цитата:
а тебе зачем?
Просто посмотреть на какой стадии находится Ваша программа, чтобы дважды не писать один код. Теперь все стало ясно.
Вы извените, что я на ты с Вами. А с прогой я что-то не разберусь, наверно совсем тупой, но вот никак не получается разобраться в коде... :(
Вы проект запустили FileSys.vbp?
Что именно не понятно?
Что именно не понятно?
Почему пишем "sub" вместо "private sub"? И что такое "Option explicit". А в остальном я уже вроде разобрался
Цитата:
вместо "private sub"?
private - это видимость процедуры на уровне формы. Т.к форма одна можно писать просто Sub. Вот если в программе будет Модуль, тогда в модуле только Public Sub
Sub
Программа работает?
Да, всё прекрасно работает, спасибо за помощь. Буду читать учебники, общаться с людьми, вообщем пойду дальше обучаться. Спасибо
Цитата:
1.надо, что бы прога сохраняла данные из txt-файла в tехtbox.
2.просматривала каждый символ и при необходимости заменяла его на другой данный.
3.сохраняла свою работу.
2.просматривала каждый символ и при необходимости заменяла его на другой данный.
3.сохраняла свою работу.
Остался только 2 пункт сделать и то я пример дал выше