NEOMATRIX Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Данный топик предназначен только для обсуждения типовых задач на Visual Basic. Обсуждение задач на VBA (а именно, Excel, Word, Access) строго запрещено! Пишите в соответствующих топиках.   Родственные топики: Excel VBA - часть 1, часть 2 - все вопросы по Excel VBA туда Word VBA все вопросы по Word VBA туда Access все вопросы по программированию в Access туда VBScript - программирование "удобняшек" на VBScript QBasic - типовые задачи на QBasic   Date Time Functions In Visual Basic VB6's Trig, Math, Financial, Boolean, and Random functions Visual Basic 6 String Functions VB6 Number System Functions (Hex, Oct, Etc) VB6's DateAdd function   Functions (Visual Basic) Keywords and Members by Task Visual Basic Reference   Visual Basic String Manipulation Tutorials   Top 10 Visual Basic Sins   Учебники: Visual Basic для студентов и школьников. Культин Н. (2010) Занимательное программирование на Visual Basic.NET. Климов А. (2005) Visual Basic в задачах и примерах. Сафронов (2009) Visual Basic 2012 на примерах. Зиборов В. (2012) Всего записей: 202 | Зарегистр. 29-12-2004 | Отправлено: 19:30 16-11-2005 | Исправлено: XPerformer, 10:07 28-10-2014

alin Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Возможно ли решить мою задачу? Имеем много файлов (в моём случае фото) с именем дата. Есть файл "file.txt" (или file.csv), в котором в столбец даны названия каждой фотографии. Сортировка по имени фото совпадает с порядком названий в текстовом файле. Как мне "пакетно" переименовать фото согласно названиям из текстового файла? Можно в Екселе изменить названия добавив в начало дату из имени файла, чтобы совпадали первые символы в имени файла, и в названии из file.csv. Но как переименовать пакетно файлы я не нашёл способа. Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 16:06 15-09-2011

Legio Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору alin Не совсем понял, чего вам надо. Можете привести в качестве примера немного исходных данных и результат, который требуется получить? Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 20:01 15-09-2011

alin Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Legio В папке файлы отсортированы по имени: 123.jpg 124.jpg 125.jpg 131.jpg 132.jpg ......jpg Есть текстовый файл (или файл в формате .csv, одно в другое легко перевести) в котором в столбец написаны названия изображений: На море На даче Мы с детьми и т.д.   Количество файлов и имён, а так же порядок названий соблюдены в текстовом файле Задача переименовать файлы согласно списка.   123.jpg -> На море.jpg 124.jpg -> На даче.jpg 125.jpg -> Мы с детьми.jpg Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 20:31 15-09-2011 | Исправлено: alin, 20:32 15-09-2011

alin Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору asbo Спасибо!   Отблагодарил там же Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 21:50 15-09-2011

Legio Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Я тут на коленке набросал немножко кода. Пусть будет. Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 22:04 15-09-2011

alin Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Legio Огромное спасибо! С удовольствием протестирую, пожалуйста, поясни как использовать твой скрипт? Всего записей: 683 | Зарегистр. 05-08-2004 | Отправлено: 22:15 15-09-2011

Legio Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Открываешь Visual Basic Editor в, например, Excel'е (Alt+F11); создаёшь новый модуль (Insert > Module) или открываешь уже существующий; в модуле создаёшь новую процедуру и в неё вставляешь этот код: Код: Private Sub TestSub()           ' код вставить куда-нибудь сюда       End Sub Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 22:30 15-09-2011

banaji Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Токой вопрос. Есть txt список со ссылками типа Цитата: http://www.google.by/ http://ya.ru/ http://www.xxx.com/ Какой написать vbs, чтоб он открыл в Opere-e все ссылки из этого txt файла. Файл txt будет меняться. Всего записей: 2310 | Зарегистр. 22-09-2010 | Отправлено: 01:23 21-09-2011 | Исправлено: banaji, 01:23 21-09-2011

rrromano Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору banaji Может, лучше для этого Excel использовать? И ссылки там, и код )))   Sub LeggiDatiID()    On Error GoTo lbl_Error        Dim objIE As InternetExplorer    Dim sh1 As Worksheet        Set objIE = CreateObject("InternetExplorer.Application")    objIE.Visible = True        With objIE       'open first url       .Navigate "www.google.it"       'wait until page is completely downloaded       Do While .Busy: DoEvents: Loop       Do While .readystate <> 4: DoEvents: Loop                 'wait 3 seconds       Application.Wait (Now + TimeValue("0:00:03"))               'open second url       .Navigate "www.libero.it"       'wait until page is completely downloaded       Do While .Busy: DoEvents: Loop       Do While .readystate <> 4: DoEvents: Loop    End With     lbl_Exit:    'objIE.Quit    Set objIE = Nothing    Exit Sub   lbl_Error:    MsgBox "Error occurred: " & Err.Description, vbOKOnly    Resume lbl_Exit End Sub   Вот это можно попробовать под оперу адаптировать, да цикл по строкам со ссылками организовать ).   Добавлено: ActiveSheet.Range("B1").Hyperlinks(1).Follow - так запускать ссылку из Excel Всего записей: 283 | Зарегистр. 20-09-2006 | Отправлено: 12:41 21-09-2011

Legio Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору banaji Читаете ссылки из файла в одну текстовую строку, разделяя адреса пробелами (а-ля "<адрес1> <адрес2>"), а затем в функцию Shell скармливаете в первый параметр путь оперы и через пробел эту строку: Код: Dim allAddresses As String, operaPath As String operaPath = "<полный путь к opera.exe>" 'в этом месте читаем адреса из файла (например через FileSystemObject) allAddresses = "<адрес1> <адрес2>" ' заглушка Shell operaPath & " " & allAddresses Как вызвать Shell из vbs не помню, погуглите сами. Всего записей: 695 | Зарегистр. 01-08-2003 | Отправлено: 17:50 21-09-2011

rrromano Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Как вызвать Shell из vbs не помню, погуглите сами.   set sh=WScript.CreateObject("Wscript.Shell") sh.run "rar.exe"   или   command_line = WshProcEnv("COMSPEC") & " /c " & path_pkzip & " -add -path=full " & archiv_log & ".zip " & archiv_log return = WshShell.Run (command_line, 1, True) Всего записей: 283 | Зарегистр. 20-09-2006 | Отправлено: 18:07 21-09-2011

DLysenko Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Приветствую. Требуется помощь. Пишу софт на VB 2010 Необходимо проверять авторизирован ли пользователь в домене, если да, запоминать его логин в переменную a. Далее требуется информация из поля Description того же пользователя. Её нужно записывать в переменную b.   пересмотрел много примеров, но не совсем могу понять как это сделать. Подскажите пожалуйста как это можно реализовать. Всего записей: 21 | Зарегистр. 19-03-2006 | Отправлено: 18:47 27-10-2011

zerkalo77 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Приветствую всех форумчан. Возникла острая необходимость написать программку дикторозависимого распознавания речи. Скорее всего принцип голосового набора в мобильных телефонах. Нужно распознать 5 команд: вверх, вниз, влево, вправо, стоп. На всех нагугляндексеных ресурсах переливают из пустого в порожнее. Из реально рабочего нашёл только эту ссылку : http://sz.ru/speech-recognition/ Правда в ней дикторонезависимое распознавание (что очень круто, как я понимаю, и мне не нужно). Плюс к этому исходников, естественно, нет.   Мне нужна помощь в алгоритме действий. Что и в какой последовательности делать. Буду признателен за любую помощь.   Всего записей: 70 | Зарегистр. 02-06-2006 | Отправлено: 13:06 23-11-2011

terminat0r Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zerkalo77 ну можно начать отсюда http://frolov-lib.ru/books/hi/index.html   алгоритмы и сорцы здесь http://en.wikipedia.org/wiki/Speech_recognition#Algorithms http://en.wikipedia.org/wiki/List_of_speech_recognition_software#Open_Source   Но учтите, что на даном этапе развития распознавания речи все это стало очень сложным.   Вам надо делать проще: посмотреть и сделать фурье спектр ваших команд и выбрать алгоритм который бы достаточно надежно сравнивал текущий спектр с образцом вашей комманды   Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 13:30 23-11-2011

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование