Слово в переменной в кавычках? - VB
Формулировка задачи:
Как слово из вывести так чтоб оно было в кавычках?
рабочий пример:
В таком варианте 1 кавычку съедает
если между кавычкой и /DISCONNECT поставить пробел то всё равно кавычку сожрёт
Ещё и /DISCONNECT съедает
Решение задачи: «Слово в переменной в кавычках?»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д