VBNet - Форум - Задачка по работе с текстом

Вопрос: Задачка по работе с текстом Добавлено: 08.10.03 19:17

Автор вопроса: Albert Einstein | Web-сайт: www.enstain.da.ru

Всем привет!
Мои учителя имеют патологическую тенденцию поручать своим ученикам к аттестации написание совершенно бесполезных программ. И я бы справился сам,
если бы не зачеты по всем остальным предметам... посему надеюсь на Вас, кодеры, надеюсь и уповаю :)
Короче, смысл таков.
Дано:
Тексовый файл с текстом (русским, русским/английским, со спец. символами и т.д.).
Нужно:
прога, которая открывает этот файл, считывает с него данные и по рандому заменяет любые маленькие буквы в слове на любые большие.
Пример:
Допустим в файле текст
"Собаку Гейса зовут Билл."
Программа должна сделать что-то вроде:
"сОБаКу ГейТсА зОвуТ бИЛл."
или так:
"СобАкУ гЕйтсА ЗовуТ бИлЛ."
ну или еще как-то...
Вот... у кого есть идеи как это сделать - помогите, а я пока лабы с физики буду готовить :)
Пишите:
enstain@yandex.ru
P.S.
Кто знает как вывести формулу для определения момента инерции вращающегося шара (через интегралы) - тоже пишите, не стесняйтесь :D

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #1

Добавлено: 08.10.03 19:51

dim fso as new filesystemobject
dim st as string
dim strlen as Long

dim pos as Long, i as long

'Здесь в переменную st мы считали весь текстовый файл

st = fso.getfile("c:\1.txt").openastextstream(forreading).readall
'длина строки

strlen = len(st)

for i = 1 to 10

'позиция для замены

pos = int(rnd()*strlen+1)

'замена большой буквы на маленькую и на оборот

Mid(st, pos, 1) = IIf(Mid(st, pos, 1) = UCase(Mid(st, pos, 1)), LCase(Mid(st, pos, 1)), UCase(Mid(st, pos, 1)))
next i 'и так раз 10

'результат можно скинуть назад в файл
fso.getfile("c:\1.txt").openastextstream(forwriting).write(st)

Ответить

Номер ответа: 2 Автор ответа: Gogic Вопросов: 38 Ответов: 121	Профиль \| \| #2	Добавлено: 09.10.03 10:39
	Не забудь про библиотеку Scrrun.dll Microsoft Scripting Runtime, без нёё модель FSO не работает, а то мало ли! Ответить

Страница: 1 |