Слово в переменной в кавычках? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.778 из 5
Похожие ответы