[Visual Basic] Anrufscript editieren / Zahl aus Text entfernen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von UPionier, 19. Mai 2012 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 19. Mai 2012
    Zuletzt bearbeitet: 19. Mai 2012
    Anrufscript editieren / Zahl aus Text entfernen

    Hallo Board,

    wir haben eine Telefonanlage im Einsatz die über einen HTML link mit "callto: Rufnummer" herauswählen kann.

    Leider nutzen wir auch ein PHP Script, dass wir nicht editieren können, der aus der Rufnummer "030/1234" den Link "callto: 0030/1234" macht.
    Wir müssen die 0 zum Rauswählen nutzen.

    Unsere Telefonanlage macht jedoch aus dem Link "callto: 0030/1234" am Endgerät einen Rufaubau zu "00030/1234", dementsprechend gehen alle Anrufe ins Klo.

    Der Rufaufbau wird über ein VB Script gesteuert.
    Ist es möglich, dass Script so zu editieren, dass beim wählen einer Rufnummer im Format 00xx nicht noch eine zusätzliche 0 drangehängt wird?

    Das VB Script ist wie folgt aufgebaut


    Code:
    
    ' ---------------------------------------------------------------------------
    '
    ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY
    ' KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
    ' IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
    ' PURPOSE.
    ' ---------------------------------------------------------------------------
    '
    ' Project: Client SDK
    '
    ' Module: Simple Visual Basic Script sample
    '
    ' Comments:
    '
    '----------------------------------------------------------------------------
    
    Option Explicit
    
    
     Dim PhoneLineMgr : Set PhoneLineMgr = Nothing
     Dim errval, DialDigits, Pos, i
    
     Set PhoneLineMgr = Wscript.CreateObject("CLMgr.ClientLineMgr") : CheckError
     DialDigits = ""
    
     for i = 0 to Wscript.Arguments.Count - 1
     DialDigits = DialDigits & Wscript.Arguments.Item(i) & " "
     next
     DialDigits = LCase(DialDigits)
     Pos = instr(1, DialDigits, "callto:", 1)
     if Pos > 0 then DialDigits = Mid(dialDigits,Pos+7)
     Pos = instr(1, DialDigits, "tel:", 0)
     if Pos > 0 then DialDigits = Mid(dialDigits,Pos+4)
     DialDigits = Replace(DialDigits, "%20", "", 1, -1, 1)
     errval = PhoneLineMgr.DispSimpleDialEx3(DialDigits, -1, 1, "")
    
     Set PhoneLineMgr = Nothing
    
    Sub CheckError
     Dim message, errRec
     If Err = 0 Then Exit Sub
     message = Err.Source & " " & Hex(Err) & ": " & Err.Description
     Fail message
    End Sub
    
    Sub Fail(message)
     Wscript.Echo message
     Wscript.Quit 2
    End Sub
    

    Gruß



    EDIT:
    Hat sich bereits erledigt.
    Es gab dort eine Option im PHP System die den gewünschten Erfolg brachte
     
  2. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.