Слово в переменной в кавычках?

@radlif · Регистрация: 18.12.2011

Студворк — интернет-сервис помощи студентам

Как слово из вывести так чтоб оно было в кавычках?
рабочий пример:

Visual Basic
1
 Shell "rasdial.exe ""MegaFon Internet"" /DISCONNECT", vbHide

В таком варианте 1 кавычку съедает

Visual Basic
1
Debug.Print ("rasdial.exe """ & ncon & """/DISCONNECT")

если между кавычкой и /DISCONNECT поставить пробел то всё равно кавычку сожрёт

Добавлено через 2 минуты
Ещё и /DISCONNECT съедает

@The trick · 10.09.2013, 22:39

Visual Basic
1
Chr(34)

@radlif · 10.09.2013, 22:43 **[ТС]**

Не всё равно съедает последнюю кавычку и слово /дисконект
я уже все примеры с MSDN перепробовал, сейчас думаю косую черту заменить.

@The trick · 10.09.2013, 22:49

Сообщение от radlif

Не всё равно съедает последнюю кавычку и слово /дисконект
я уже все примеры с MSDN перепробовал, сейчас думаю косую черту заменить.

@radlif · 10.09.2013, 22:53 **[ТС]**

У меня ток название соединения возвращается api функцией.

@The trick · 10.09.2013, 23:00

Ну ты проверь длину переменной, наверное просто там куча пробелов или еще чего.

@radlif · 10.09.2013, 23:27 **[ТС]**

Сообщение от The trick

ну ты проверь длинну переменной, наверное просто там куча пробелов

Спасибо

Добавлено через 25 минут
The trick, Там нефига не пробелы, мож посоветуешь что?
Trim не удаляет

Даж так не работает.

Visual Basic
1
2
3
ncon = Trim(ncon)
ncon = Left(ncon, Len(ncon) - 1)
ncon = Trim(ncon)

Я думал там 1 символ невидимый а там судя по размеру их море.

Код с помощью которого получаю имя, подключается как класс

Кликните здесь для просмотра всего текста

Visual Basic
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
Option Explicit
Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (udtRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
Private Const RAS_MAXENTRYNAME As Integer = 256
Private Const RAS_MAXDEVICETYPE As Integer = 16
Private Const RAS_MAXDEVICENAME As Integer = 128
Private Const RAS_RASCONNSIZE As Integer = 412
 
Private Type RASCONN
    dwSize As Long
    hRasConn As Long
    szEntryName(RAS_MAXENTRYNAME) As Byte
    szDeviceType(RAS_MAXDEVICETYPE) As Byte
    szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type
 
Dim voz As String
 
Public Function NamConect()
    Dim udtRasConn(255) As RASCONN, countConn As Long
    Dim Ret As Long, b As Long
    udtRasConn(0).dwSize = RAS_RASCONNSIZE
    Ret = RasEnumConnections(udtRasConn(0), RAS_MAXENTRYNAME * udtRasConn(0).dwSize, countConn)
    If Ret = 0 Then
        For b = 0 To countConn - 1
            voz = StrConv(udtRasConn(b).szEntryName(), vbUnicode)
        Next b
        If voz = vbNullString Then
            voz = "Îòñóòñòâóåò"
        End If
        NamConect = voz
    End If
End Function

@The trick · 10.09.2013, 23:37

Visual Basic
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
Option Explicit
 
Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (udtRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
 
Private Const RAS_MAXENTRYNAME As Integer = 256
Private Const RAS_MAXDEVICETYPE As Integer = 16
Private Const RAS_MAXDEVICENAME As Integer = 128
Private Const RAS_RASCONNSIZE As Integer = 412
 
Private Type RASCONN
    dwSize As Long
    hRasConn As Long
    szEntryName As String * RAS_MAXENTRYNAME
    szDeviceType As String * RAS_MAXDEVICETYPE
    szDeviceName As String * RAS_MAXDEVICENAME
End Type
 
Private Function NamConect() As String
    Dim udtRasConn(255) As RASCONN, countConn As Long
    Dim l As Long
    udtRasConn(0).dwSize = RAS_RASCONNSIZE
    If RasEnumConnections(udtRasConn(0), RAS_MAXENTRYNAME * udtRasConn(0).dwSize, countConn) = 0 Then
        If countConn Then
            l = lstrlen(udtRasConn(countConn - 1).szEntryName)
            If l Then
                NamConect = Left$(udtRasConn(countConn - 1).szEntryName, l)
            Else
                NamConect = "Отсутствует"
            End If
        Else
            NamConect = "Отсутствует"
        End If
    End If
End Function

@radlif · 10.09.2013, 23:51 **[ТС]**

Во спасиб, ток я не пойму по какому принципу эта функция у тебя находит
на каком порту висит подключение без цикла.
Есть такая же реализация ток в ней ещё имена портов выводятся,
не сохранил к сожалению (

@The trick · 10.09.2013, 23:54

Сообщение от radlif

Во спасиб, ток я не пойму по какому принципу эта функция у тебя находит
на каком порту висит подключение без цикла.

Я ничего не искал, просто у тебя цикл в коде, он ненужен был (ничего не давал), я его пропустил, сделал эквивалент без цикла. А так по настоящему он может и нужен, несмотрел описание этой функции, так что не скажу.

@radlif · 11.09.2013, 13:54 **[ТС]**

The trick, "rasapi32.dll" и "kernel32" это стандартные библиотеки насколько я знаю
так почему этот класс не находить имя соединения на другом компе?
У тебя как я понял он нашёл имя, у меня тож всё норм, а вот у подруги даж от имени админа не хочет...
У неё подключена йота, но наскок я знаю "rasapi32.dll" видит все подключения независимо от типа модема.

@The trick · 11.09.2013, 14:20

Посмотри что возвращает функция, и в описании функции посмотри, что это обозначает.

@Catstail · 11.09.2013, 14:52

Сообщение от radlif

У меня ток название соединения возвращается api функцией.

все API функции от веку возвращают буфер, дополненный справа нуль-символом (chr$(0)). Нужно искать его первое вхождение и брать все, что слева.

@radlif · 11.09.2013, 15:00 **[ТС]**

Сообщение от Catstail

все API функции от веку возвращают буфер, дополненный справа нуль-символом (chr$(0)). Нужно искать его первое вхождение и брать все, что слева.

С этим уже разобрались, спасибо Хитрому ща проблема в другом и походу это тупик

dev.Free · 11.09.2013, 18:12

Bash
1
2
3
4
5
6
7
8
9
10
11
12
@echo off
cls
loop
rem
rasdial BeelineInternet /disconnect
rem
ping -n 40 localhot > nul
rem
rasdial BeelineInternet MyUsername MyPassword
goto loop
pause
exit

@radlif · 11.09.2013, 18:17 **[ТС]**

Уже решил, прога делает то что надо но это не подходит для йоты.
Её запускаешь когда качаешь торрент и она наблюдает за скоростью интернета и состоянием подключения
если скорость 0 или нет отрубился то переподключает.
Тоесть врубил и спать ушёл.
Осталось ток чутка допилить, например если при подключение модем выдаёт ошибку.

Dragokas · 12.09.2013, 22:33

Сообщение от radlif

Visual Basic
Shell "rasdial.exe ""MegaFon Internet"" /DISCONNECT", vbHide

По идее так:

Visual Basic
1
Shell "cmd /c ""rasdial ""MegaFon Internet"" /d""", 0

Добавлено через 4 минуты
ИМХО, inv.DS, правильно посоветовал. Проще и меньше кода займет реализация на Batch.
Как вариант можно заюзать административную команду netsh:

Bash
1
2
3
4
5
6
7
8
9
10
11
@echo off
:CheckConnection
set Fail=0
ping -n 1 ya.ru | find /i "TTL=" && set Fail=0|| set /A FAIL+=1
if %FAIL% GTR 2 call :Reconnect
ping -n 6 127.1 >NUL
goto CheckConnection
 
:Reconnect
netsh interface set interface "MegaFon Internet" connect = DISCONNECTED
netsh interface set interface "MegaFon Internet" connect = CONNECTED

Каждые 5 сек. проверяет пинг к ya.ru. Если 3 раза неудача - переподключение.

@radlif · 12.09.2013, 22:35 **[ТС]**

Не можно напрямую в rasdial.exe передавать, это командный фаил и как я написал выше всё нормально работает.
Это полностью рабочий пример.

Visual Basic
1
Shell "rasdial.exe ""MegaFon Internet"" /DISCONNECT", vbHide

Проблемма была чтоб передать название соединения в кавычках,
так как rasdial если в название пробел выдаёт ошибку.

Добавлено через 1 минуту
Вы всю тему читали?)
Эти строки нужны в программе которая наблюдает за подключением интернета и если скорость 0 или
нэт отрубился то переподключает или просто подключает)

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@radlif 44 / 44 / 3 Регистрация: 18.12.2011 Сообщений: 577
	10.09.2013, 22:43 [ТС]
	Не всё равно съедает последнюю кавычку и слово /дисконект я уже все примеры с MSDN перепробовал, сейчас думаю косую черту заменить. 0

@radlif 44 / 44 / 3 Регистрация: 18.12.2011 Сообщений: 577
	10.09.2013, 22:53 [ТС]
	У меня ток название соединения возвращается api функцией. 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	10.09.2013, 23:00
	Ну ты проверь длину переменной, наверное просто там куча пробелов или еще чего. 1

@radlif 44 / 44 / 3 Регистрация: 18.12.2011 Сообщений: 577
	10.09.2013, 23:51 [ТС]
	Во спасиб, ток я не пойму по какому принципу эта функция у тебя находит на каком порту висит подключение без цикла. Есть такая же реализация ток в ней ещё имена портов выводятся, не сохранил к сожалению ( 0

@radlif 44 / 44 / 3 Регистрация: 18.12.2011 Сообщений: 577
	11.09.2013, 13:54 [ТС]
	The trick, "rasapi32.dll" и "kernel32" это стандартные библиотеки насколько я знаю так почему этот класс не находить имя соединения на другом компе? У тебя как я понял он нашёл имя, у меня тож всё норм, а вот у подруги даж от имени админа не хочет... У неё подключена йота, но наскок я знаю "rasapi32.dll" видит все подключения независимо от типа модема. 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	11.09.2013, 14:20
	Посмотри что возвращает функция, и в описании функции посмотри, что это обозначает. 0

@radlif 44 / 44 / 3 Регистрация: 18.12.2011 Сообщений: 577
	11.09.2013, 18:17 [ТС]
	Уже решил, прога делает то что надо но это не подходит для йоты. Её запускаешь когда качаешь торрент и она наблюдает за скоростью интернета и состоянием подключения если скорость 0 или нет отрубился то переподключает. Тоесть врубил и спать ушёл. Осталось ток чутка допилить, например если при подключение модем выдаёт ошибку. 0

Слово в переменной в кавычках?

Решение