VBNet - Форум

Вопрос: String Добавлено: 03.05.09 19:21

Автор вопроса: Dmitryi | ICQ: 339242625

VB6.
Есть переменная типа string, в которой имеется запись символов, знаков и слов. Как правильно организовать цикл перебора всех символов, что бы найти искомое слово.
Ответить

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

Номер ответа: 1 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #1	Добавлено: 03.05.09 20:56
	Можно использовать метод Contains переменной типа String Dim STR1 as String = "Пробная строка" Dim STR2 as String = "роб" If STR1.Contains(STR2) = True Then MsgBox("Имеется вхождение") Else MsgBox("Нет вхождений") End If На выходе будем иметь: Имеется вхождение Ну это если я правильно понял вопрос: определить, имеется вхождение заданного набора символов (STR2 в моем примере) в заданную строку (STR1 в моем примере) Ответить

Номер ответа: 2 Автор ответа: Dmitryi ICQ: 339242625 Вопросов: 13 Ответов: 27	Профиль \| \| #2	Добавлено: 03.05.09 21:03
	Программа следующего типа: Есть FileListBox(показывает файлы в папке) они записываются в переменную типа строка мне необходим цикл который при нажатии на кнопку будет проверять наличие этого файла (т.е. имя файла в этой строке) если файл имеется то его необходимо открыть. Ответить

Номер ответа: 3 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #3	Добавлено: 03.05.09 21:08
	Блин, забыл, что в VB6 такого метода строки не имеют. Можно использовать InStr: http://msdn.microsoft.com/ru-ru/library/8460tsh1.aspx Ответить

Номер ответа: 4 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #4	Добавлено: 03.05.09 21:12
	Ага, значит тебе надо, имея строку пути к файлу, открыть его, если по указанному пути файл существует... так? Может тогда лучше не проверять саму строку, а проверить фактическое наличие файла по указанному пути? Т.е. так: 1 взяли путь 2 проверили, есть ли там файл. 3 если есть, открыли Ответить

Номер ответа: 5 Автор ответа: Dmitryi ICQ: 339242625 Вопросов: 13 Ответов: 27	Профиль \| \| #5	Добавлено: 03.05.09 21:25
	Да можно и так. Ответить

Номер ответа: 6 Автор ответа: Dmitryi ICQ: 339242625 Вопросов: 13 Ответов: 27	Профиль \| \| #6	Добавлено: 03.05.09 21:37
	КОД НЕ ВЕРЕН. Я еще в этом дилетант Я думал что будет выглядеть примерно следующим образом: s -это строка For M = 0 To S.length - 1 M = M + 1 If S = "agl" Then Shell "notepad "agl", vbNormalFocus <br> End If Next M ! Ответить

Номер ответа: 7 Автор ответа: MegaÐefender Вопросов: 19 Ответов: 313	Web-сайт: safetyAV.narod.ru Профиль \| \| #7	Добавлено: 03.05.09 21:58
	Если я правильно понял, нужно найти в файллистбоксе существующие файлы и открыть их, то: 'где flsBox - FileListBox 'где OpenFile - процедура открытия с параметром (лучше напишите сами) dim i as integer for i =0 to flsBox.ListCount If dir$(flsBox.List(i))<>vbNullString Then OpenFile(flsBox.List(i)) Next i Ответить

Номер ответа: 8 Автор ответа: Dmitryi ICQ: 339242625 Вопросов: 13 Ответов: 27	Профиль \| \| #8	Добавлено: 03.05.09 22:27
	открыть не все существующие файлы, а определенные! Ответить

Номер ответа: 9 Автор ответа: Dmitryi ICQ: 339242625 Вопросов: 13 Ответов: 27	Профиль \| \| #9	Добавлено: 03.05.09 22:32
	Например FileListBox содержит: 1.txt, 2.txt, t.doc, rr,7.xls... открыть блокнотом нужно файл rr. Ответить

Номер ответа: 10 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #10	Добавлено: 05.05.09 18:01
	Попробуй вот так: MyFileName = "D:\Sample.xls" If Dir(MyFileName) <> "" Then MsgBox "Файл : " & MyFileName & " найден" 'А дальше уже делай с ним что душа пожелает :) Else MsgBox "Файл : " & MyFileName & " не найден" End If Ответить

Страница: 1 |