Все выпуски  

RE: Как создать новую папку с помощью Visual basic 6.0 , и названием папки указать переменное значение Label?



RE: Как создать новую папку с помощью Visual basic 6.0 , и названием папки указать переменное значение Label?
2016-12-14 21:37 kw33
Скорее так:
MkDir "C:\x\x\x\" & Label19.Caption

Можно использовать File System Object.
Для этого нужно установить ссылку на Microsoft Scripting Runtime:
откройте меню Project -> References... и поставьте галку для Microsoft Scripting Runtime.

В коде:
Dim fso As New FileSystemObject
Dim path As String

path = "C:\MyFolder"
fso.CreateFolder path


RE: Вывод из таблицы dataGridView повторяющиеся столбцы
2016-12-19 13:30 i32
Я думаю нужен цикл ..
Если хочешь все совпадения найти..
For Each md As Match In Regex.Matches(readText, "Aborted")
                ' MsgBox(md.Index)
                ' MsgBox(md.Value)
                readText = readText.Remove(0, md.Index) ' и удаляем все до этого слова
            Next


Reg
2016-12-19 13:52 i32
Привет всем .
Подскажите с шаблоном в регулярке.
Сделал так..
  Dim sou As String = readText
            Dim m4 As Match = Regex.Match(sou, "Time.Estimated.:(?<Bl>.*?)\x29")
            clos_timerr = (m4.Groups("Bl").Value) & ")"
Последнюю скобку я взял в шаблон т.к. после нее в строке нет ничего..
И обратно долисал..Как то это не правельно..
Time.Estimated.: Sun Dec 18 20:38:41 2016 (11 mins, 44 secs)
Speed.Dev.#1...:     6108 H/s (94.16ms)
Можно за следующее слово зацепиться .Но оно с новой строки...
Спасибо....


RE: Reg
2016-12-19 14:59 i32
Сори сам вроде нашел...
 Dim m4 As Match = Regex.Match(sou, "Time.Estimated.:(?<Bl>.*?)\s+Speed")

Хотя в этом шаблоне сказано что \s+ - это пробел
/\((\d{3,5})\)\s+(\d{3}-\d{2}-\d{2})/
Фиг знает у меня работает как перевод на новую строку + слово..

Запрос к базе даных
2016-12-31 23:30 tchirckoff.ilya
Добрый день у меня такой вопрос мине достался скрипт и в нем вот такие запросы к базе данных
if ($email !== FALSE) {
                    $r = $mysql->prepare("SELECT * FROM users WHERE Email = ?");
                    $r->execute(array($email));
                    if ($r->rowCount() == 0) {
                        $l = $mysql->prepare("SELECT * FROM users WHERE UsLogin = ?");
                        $l->execute(array($login));
                    if ($l->rowCount() == 0) {
                        $i = $mysql->prepare("SELECT * FROM users WHERE ip = ?");
                        $i->execute(array($ip));
и мине не понятны вот эти ? вопрос я как то слышал то кое но неповню

RE: Запрос к базе даных
2017-01-02 14:40 Caxumet
Скрипт писал какой-то даун, извините меня...

RE: Запрос к базе даных
2017-01-04 11:37 tchirckoff.ilya
Согласен подскажи можно как не будь этот бред под обычный вариант переделать

В избранное