Showing results 1 to 2 of 2

Thread: String Variable auf größer Null /Leer (B#16#20) vergleichen

  1. #1
    Join Date
    13.10.2017
    Posts
    30

    Default String Variable auf größer Null /Leer (B#16#20) vergleichen

    Hallo,

    Ich habe folgenden Code der Ordner erstellt aus einer Stringvariable die von der SPS übergeben wird.
    Funktioniert sehr gut.

    Code:
    Public Sub Ordner_erstellen()
    'Diese Modul erstellt Ordner
    
    
    Dim strNr As String
    Dim strText As String
    Dim strPfad As String
    Dim strOrdner As String
    Dim oFSO As Object
    
    
    strNr = thisProject.Variables.Item("RV_OrdnerName").Value
    strText = Format(CStr(strNr), "000000000000")
    
    
    
    
    'Exportpfad
    strPfad = "D:\S7_Export\AppData"     ' Pfad einstellen
    strOrdner = strText
       
    Set oFSO = CreateObject("Scripting.FileSystemObject")
            
            If oFSO.FolderExists(strPfad) Then
                If Not oFSO.FolderExists(strPfad & "\" & strOrdner) Then
                    oFSO.CreateFolder (strPfad & "\" & strOrdner)
                                    
                End If
                
            Else
            'Code
            thisProject.Variables.Item("RV_NoFolder").Value = 1
            End If
    
            
    Set oFSO = Nothing
     
    End Sub
    Ich möchte den folgen Codesschnipsel so mit einbringen das er dafür sorgen soll das wenn die "Variable leer" ist, die Sub beendet wird.

    Code:
    If thisProject.Variables.Item("RV_OrdnerName").Value > 0 Then
      Exit Sub
      End If
    Wenn die Variable leer ist steht in HEX B#16#20 drin. Als Zeichen steht folgendes drin ( ' ' )
    Mit Value > 0 funktioniert es nicht. Hat einer von Euch eine Idee wie es richtig ist.
    Wie stellt man diesen HEX Wert oder das Zeichen in VBA dar??

    Vielen Dank im voraus.

    Mit freundlichen Grüßen

    Tommylik

  2. #2
    Join Date
    26.11.2010
    Posts
    28

    Default Re: String Variable auf größer Null /Leer (B#16#20) vergleichen

    16#20 ist nicht leer, sondern ein Leerzeichen. Da "RV_OrdnerName" ein nummerischer String zu sein scheint, kann man es so machen:



    Code:
    strNr = Cstr(thisProject.Variables.Item("RV_OrdnerName").Value)
    If not IsNumeric(strNr ) Then Exit Sub
    strText = Format(strNr, "000000000000")

Similar Threads

  1. Variable in String Format
    By junedfazal486 in forum zenon Service Engine Supervisor
    Replies: 6
    Last Post: 27th July 2020, 08:25
  2. Combielement mit String variable
    By TMeck9 in forum zenon Service Engine Supervisor
    Replies: 0
    Last Post: 29th January 2019, 22:28
  3. Replies: 1
    Last Post: 9th June 2015, 06:24
  4. Link between an INT PLC variable and a STRING interne variable?
    By lephis in forum zenon Service Engine Supervisor
    Replies: 1
    Last Post: 23rd July 2011, 08:51
  5. Zahlendarstellung mit führender Null
    By brenner in forum zenon Service Engine Supervisor
    Replies: 2
    Last Post: 27th May 2009, 13:00

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •