Solved

to transfer string from C lanaguage to VBA

Posted on 2016-10-09
4
43 Views
Last Modified: 2016-10-10
I would like to transfer the following code, written in C language, to VBA.

 Dim username As String
    Dim pin As String
    Dim broadcastType As String
    Dim phoneNumberSource As String
    Dim broadcastName As String
    Dim checkCallingWindow As String
    Dim commaDelimitedPhoneNumbers As String
    Dim TTSText As String

username = "999111999"
pin = "9991"
broadcastType = "1"
phoneNumberSource = "3"
broadcastName = "Test from Visual Basic"
checkCallingWindow = "0"
commaDelimitedPhoneNumbers = "9725551313"
TTSText = "Hello, This is a text to speech call testing integration with Microsoft Access 2016. Have a nice day."

Dim SoapPost As String
 
    SoapPost = "<?xml version=""1.0"" encoding=""utf-8""?> <soap12:envelope "
xmlns:            xsi = "&quot;http://www.w3.org/2001/XMLSchema-instance&quot;"
xml2ns:            xsd = "&quot;http://www.w3.org/2001/XMLSchema&quot;"
            xmlns:soap12="&amp;quot;http://www.w3.org/2003/05/soap-envelope&amp;quot;">&quot;_
    & "<soap12:body>" _
    & "<" & FunctionName & " xmlns="&quot;http://call-em-all.com/&quot;">" _
    & " <myRequest>" _
    & " <username>" & username & "</username>" _
    & " <pin>" & pin & "</pin>" _
    & " <phoneNumberSource>" & phoneNumberSource & "</phoneNumberSource>" _
    & " <broadcastName>" & broadcastName & "</broadcastName>" _
    & " <broadcastType>" & broadcastType & "</broadcastType>" _
    & " <checkCallingWindow>" & checkCallingWindow & "</checkCallingWindow>" _
    & " <commaDelimitedPhoneNumbers>" & commaDelimitedPhoneNumbers & "</commaDelimitedPhoneNumbers>" _
    & " <TTSText>" & TTSText & "</TTSText>" _
    & " </myRequest>" _
    & "</" & FunctionName & ">" _
 & "</soap12:Body>" _
    & "</soap12:Envelope>"

Open in new window


I would appreciate help in transferrring the above string to VBA or to VB.net.
Thank you in advance.
0
Comment
Question by:Moshe Singer
  • 2
4 Comments
 
LVL 16

Expert Comment

by:Pawan Kumar Khowal
Comment Utility
Is that you are looking for..

SoapPost = "<?xml version="
 "1.0"
 " encoding="
 "utf-8"
 "?> <soap12:envelope "
xmlns:
     xsi = ""http://www.w3.org/2001/XMLSchema-instance""
xml2ns:
     xsd = ""http://www.w3.org/2001/XMLSchema""
xmlns:
     soap12 = ("&quot;http://www.w3.org/2003/05/soap-envelope&quot;" > quot)
     (_ And "<soap12:body>")
     (_ And ("<"  _
                 And (FunctionName And (" xmlns=" And quot))))
 http:
     'call-em-all.com/"">" _
     " <myRequest>"
     (_ And (" <username>"  _
                 And (username And "</username>")))
     (_ And (" <pin>"  _
                 And (pin And "</pin>")))
     (_ And (" <phoneNumberSource>"  _
                 And (phoneNumberSource And "</phoneNumberSource>")))
     (_ And (" <broadcastName>"  _
                 And (broadcastName And "</broadcastName>")))
     (_ And (" <broadcastType>"  _
                 And (broadcastType And "</broadcastType>")))
     (_ And (" <checkCallingWindow>"  _
                 And (checkCallingWindow And "</checkCallingWindow>")))
     (_ And (" <commaDelimitedPhoneNumbers>"  _
                 And (commaDelimitedPhoneNumbers And "</commaDelimitedPhoneNumbers>")))
     (_ And (" <TTSText>"  _
                 And (TTSText And "</TTSText>")))
     (_ And " </myRequest>")
     (_ And ("</"  _
				And (FunctionName And ">")))
	 (_ And ("</soap12:Body>")
	 (_ And ("</soap12:Envelope>")

Open in new window

0
 

Author Comment

by:Moshe Singer
Comment Utility
I tested, it cannot be compiled from the debug menu
it is full with errors
0
 
LVL 9

Accepted Solution

by:
Karen earned 500 total points
Comment Utility
SoapPost = "<?xml version=""1.0"" encoding=""utf-8""?> <soap12:envelope " _
    & "xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " _
    & "xml2ns:xsd=""http://www.w3.org/2001/XMLSchema"" " _
    & "xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope""> " _
    & "<soap12:body>" _
    & "<" & FunctionName & " xmlns=""http://call-em-all.com/"">" _
    & " <myRequest>" _
    & " <username>" & UserName & "</username>" _
    & " <pin>" & pin & "</pin>" _
    & " <phoneNumberSource>" & phoneNumberSource & "</phoneNumberSource>" _
    & " <broadcastName>" & broadcastName & "</broadcastName>" _
    & " <broadcastType>" & broadcastType & "</broadcastType>" _
    & " <checkCallingWindow>" & checkCallingWindow & "</checkCallingWindow>" _
    & " <commaDelimitedPhoneNumbers>" & commaDelimitedPhoneNumbers & "</commaDelimitedPhoneNumbers>" _
    & " <TTSText>" & TTSText & "</TTSText>" _
    & " </myRequest>" _
    & "</" & FunctionName & ">" _
    & "</soap12:Body>" _
    & "</soap12:Envelope>"

Open in new window

0
 

Author Closing Comment

by:Moshe Singer
Comment Utility
now it is error free
I have to test if it is working
Thanks a milion
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now