Visual Basic

Christian Graus3-May-09 22:20

Christian Graus

3-May-09 22:20

VB6 is out of date, and was always rubbish. You'll find it very hard to get much support if you choose not to use a real language. Even MS has not supported it for quite some time.

Christian Graus

Driven to the arms of OSX by Vista.

"I am new to programming world. I have been learning c# for about past four weeks. I am quite acquainted with the fundamentals of c#. Now I have to work on a project which converts given flat files to XML using the XML serialization method" - SK64 ( but the forums have stuff like this posted every day )

Tiyani Miyambo4-May-09 0:27

Tiyani Miyambo

4-May-09 0:27

you could try to first put the import statement that will bring forward the attributes of the stream reader

Johan Hakkesteegt4-May-09 1:24

Johan Hakkesteegt

4-May-09 1:24

Christian is right, forget about VB6.

Please download Visual Studio 2008 (it is free), and start using .net

After that use System.IO (System.IO.StreamReader, etc.). It has everything you need to manipulate files.

My advice is free, and you may get what you paid for.

Baran M4-May-09 1:25

Baran M

4-May-09 1:25

if you want to manipulate, read, and create ASCII and Unicode text files use FileSystemObject. For this we need to add the file reference,

Microsoft Scripting Runtime library.

There is no FileStream or StreamReader as such, you can use FileStreamObject, TextStream instead. Smile | :)

urgent help required .. How to remove XMLNS namespace in child nodes (urgent)

Dave Kreskowiak4-May-09 2:00

Dave Kreskowiak

4-May-09 2:00

That code will not work in VB6. You'll need to use VB.NET to use that code. You can get the Express Edition for free from here[^].

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Member 61613673-May-09 19:53

Member 6161367

3-May-09 19:53

I have to writen the XML file in VB 6.0

<Globus xmlns:xsi = 'http://www.w3.org/2001/XMLSchema-instance'

xmlns = 'http://www.temenos.com/GLOBUS/OFSML/120'

xsi:schemaLocation = 'http://www.temenos.com/GLOBUS/OFSML/120 ../../xsd/ofsml.xsd'>
<ofsmlHeader xsi:nil="true" />

<serviceRequest >
<securityContext>

<userName>INPUTT</userName>

<password>123456</password>

<company>VN0010001</company>

</securityContext>

<ofsStandardEnquiry name = 'ACCOUNT-IBS'>

<selectionCriteria operand = "EQ">

<fieldName>ACCOUNT.NUMBER</fieldName>

<value>002100000415&lt</value>

</selectionCriteria>

</ofsStandardEnquiry>

</serviceRequest>

</Globus>

So i have written as

         Dim objDOM As New MSXML2.DOMDocument30
   Dim objnode As MSXML2.IXMLDOMNode
   Dim objChildNode As MSXML2.IXMLDOMNode

   Dim ObjServicereq As MSXML2.IXMLDOMNode
   Dim objserviceCon As MSXML2.IXMLDOMNode
   Dim ofsStandardEnquiry As MSXML2.IXMLDOMNode
   Dim objattribute As MSXML2.IXMLDOMAttribute
   Dim objattribute1 As MSXML2.IXMLDOMAttribute
   Dim objattribute2 As MSXML2.IXMLDOMAttribute
   Dim objelement As MSXML2.IXMLDOMElement
   Dim objelement1 As MSXML2.IXMLDOMElement
   Dim objattribute3 As MSXML2.IXMLDOMAttribute
   Dim objattribute4 As MSXML2.IXMLDOMAttribute
   Dim objattribute5 As MSXML2.IXMLDOMAttribute

'   Set objNode = objDOM.createNode(NODE_PROCESSING_INSTRUCTION, "xml", "")
'   objDOM.appendChild objNode
'


   Set objnode = objDOM.createNode(NODE_ELEMENT, "GLOBUS", "")
      Set objelement = objnode
'
   Set objattribute = objDOM.createAttribute("xmlns:xsi")
   objattribute.Text = "http://www.w3.org/2001/XMLSchema-instance"
   objelement.setAttributeNode objattribute
'
      Set objattribute1 = objDOM.createAttribute("xmlns")
      objattribute1.Text = "http://www.temenos.com/GLOBUS/OFSML/120"
      objelement.setAttributeNode objattribute1

      Set objattribute2 = objDOM.createAttribute("xsi:schemaLocation")
      objattribute2.Text = "http://www.temenos.com/GLOBUS/OFSML/120 ../../xsd/ofsml.xsd"
      objelement.setAttributeNode objattribute2

'

      Set objattribute = Nothing
      Set objattribute1 = Nothing
      Set objattribute2 = Nothing


      Set objChildNode = objDOM.createNode(NODE_ELEMENT, "ofsmlHeader", "")
      Set objattribute3 = objDOM.createAttribute("xsi:nil")
      objattribute3.Text = "true"

      Set objelement1 = objChildNode
      objnode.appendChild objChildNode
      objelement1.setAttributeNode objattribute3

      Set objelement1 = Nothing
      Set ObjServicereq = objDOM.createNode(NODE_ELEMENT, "serviceRequest", "")
      objChildNode.appendChild ObjServicereq


   Set objserviceCon = objDOM.createNode(NODE_ELEMENT, "securityContext", "")

      Dim xmlElmName As MSXML2.IXMLDOMElement
      Set xmlElmName = objDOM.createElement("userName")
      objserviceCon.appendChild xmlElmName
      xmlElmName.Text = "INPUTT"

Dim xmlElmPASSWORD As MSXML2.IXMLDOMElement
Set xmlElmPASSWORD = objDOM.createElement("password")
objserviceCon.appendChild xmlElmPASSWORD
xmlElmPASSWORD.Text = "123456"

Dim xmlElmcompany As MSXML2.IXMLDOMElement
Set xmlElmcompany = objDOM.createElement("company")
objserviceCon.appendChild xmlElmcompany
   xmlElmcompany.Text = "VN0010001"

   objnode.appendChild ObjServicereq
   ObjServicereq.appendChild objserviceCon
   Set objserviceCon = Nothing


   Set ofsStandardEnquiry = objDOM.createNode(NODE_ELEMENT, "ofsStandardEnquiry", "")
         Set objattribute4 = objDOM.createAttribute("NAME")
   objattribute4.Text = "ACCOUNT-IBS"
   Set objelement = ofsStandardEnquiry
   objnode.appendChild ofsStandardEnquiry
   objelement.setAttributeNode objattribute4
         ObjServicereq.appendChild ofsStandardEnquiry

         Dim objselectioncriteria As MSXML2.IXMLDOMNode
            Set objselectioncriteria = objDOM.createNode(NODE_ELEMENT, "selectionCriteria", "")
            Set objattribute5 = objDOM.createAttribute("Operand")
         objattribute5.Text = "EQ"
            Set objelement = objselectioncriteria
            ObjServicereq.appendChild objselectioncriteria
            objelement.setAttributeNode objattribute5
            Set objelement = Nothing



            Dim xmlElmfieldName As MSXML2.IXMLDOMElement
            Set xmlElmfieldName = objDOM.createElement("fieldName")
            objselectioncriteria.appendChild xmlElmfieldName
            xmlElmfieldName.Text = "CUSTOMER.CODE"

Dim xmlElmvalue As MSXML2.IXMLDOMElement
Set xmlElmvalue = objDOM.createElement("value")
objselectioncriteria.appendChild xmlElmvalue
   xmlElmvalue.Text = "100297"

   objnode.appendChild ObjServicereq
   objDOM.appendChild objnode
   Set objelement = Nothing
      Set objChildNode = Nothing
      Set objselectioncriteria = Nothing
      Set ofsStandardEnquiry = Nothing
      Set ObjServicereq = Nothing
   Set objnode = Nothing

   MsgBox objDOM.xml
   objDOM.save ("C:\SCBDATA\Request\Request_ACC.XML")
   Debug.Print objDOM.xml
   Set objDOM = Nothing
   ' Call GENCUST
End Sub

but i get output as

<Globus xmlns:xsi = 'http://www.w3.org/2001/XMLSchema-instance'

xmlns = 'http://www.temenos.com/GLOBUS/OFSML/120'

xsi:schemaLocation = 'http://www.temenos.com/GLOBUS/OFSML/120 ../../xsd/ofsml.xsd'>;

<ofsmlHeader xmlns = "" xsi:nil="true" />;

<serviceRequest xmlns = "" >
<securityContext>

<userName>INPUTT</userName>

<password>123456</password>;

<company>VN0010001</company>;

</securityContext>;

<ofsStandardEnquiry name = 'ACCOUNT-IBS'>

<selectionCriteria operand = "EQ">

<fieldName>ACCOUNT.NUMBER&lt</fieldName>

<value>002100000415</value>

</selectionCriteria>

</ofsStandardEnquiry>

</serviceRequest>

</Globus>

xmlns = ""   is repeating at ofsmlheaser and service request ,.. please help me like how to write it by getting it correctly .

So please suggest me any way in VB 6.o to make the xmlns="" no get repeated for child nodes ...

Re: urgent help required .. How to remove XMLNS namespace in child nodes (urgent)

Christian Graus3-May-09 22:21

Christian Graus

3-May-09 22:21

Member 6161367 wrote:
in VB 6.o

VB6 had terrible XML support, which follows, because it was a terrible joke of a language. Why are you using it ?

Re: urgent help required .. How to remove XMLNS namespace in child nodes (urgent)

Member 61613673-May-09 23:28

Member 6161367

3-May-09 23:28

hi christian,

I was given this task in vb 6.0 only,So i suggest any one to tell me like what can be apossible way to stop that xmlns="" not to get repeated in other child nodes ..

Can u please suggest me some way .As we r forced to genearte a n XML file in vb 6.0 we require ur help in thsi context ...

Thanks,
Pallavi.

Display the Excel Book in Vb.Net.

Nanda_MR3-May-09 19:07

Nanda_MR

3-May-09 19:07

Hello Experts.

I am try to create Employee Payroll in Excel Sheet using VB.Net.

using Excel.Application, Excel.Workbook, Excel.Worksheet insert data and formatting data.

After the save this Excel Workbook.
I try to display this excel sheet in VB.NET Form.
Now my problem is I m using Web browser it is working properly.
But When i open this program other excel Book(Opened Book) is not working in Excel 2003/ not displaying and I can't open new Excel sheet using Excel 2003 Until closing my Programming.

Please Help me.
Thanks in advance.

Communicate over ethernet port (VS2005, Vista)

Chun23-May-09 13:27

Chun2

3-May-09 13:27

I want to write an application to read data from a specific IP address and Port. I have been searching for solutions on internet and understand that I need to use TCPlistener.
- My PC will act as server or client? does it matter when i write the application?
- how can I test my Tcplistener application? I would like to send data to a port and read it using my application and send data back. Please let me know if i need to edit any setting on router as well.

thanks
chun

Re: Communicate over ethernet port (VS2005, Vista)

Dave Kreskowiak4-May-09 1:57

Dave Kreskowiak

4-May-09 1:57

Chun2 wrote:
I want to write an application to read data from a specific IP address and Port

Are you says that you want to monitor the traffic going to/from that IP?? Is that IP on your machine or another, remote, machine??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

ip adress

andreas_6352-May-09 23:43

andreas_635

2-May-09 23:43

hello everyone,
I would like to know how can i read the IP address!can anyone help me?
Thank you !

Mycroft Holmes2-May-09 23:46

Mycroft Holmes

2-May-09 23:46

Start
run
cmd.exe
ipconfig

Never underestimate the power of human stupidity
RAH

andreas_6352-May-09 23:54

andreas_635

2-May-09 23:54

You not help me!in vb i mean!

Eddy Vluggen2-May-09 23:57

Eddy Vluggen

2-May-09 23:57

Enjoy[^]

I are troll Smile | :)

Veldrain3-May-09 16:46

Veldrain

3-May-09 16:46

http://www.whatismyip.com/[^]">

Who knows, that might be vb based.

Samir Ibrahim3-May-09 22:12

3-May-09 22:12

You can use VB.Net class to get the local IP or by using Winsock Object

I don't know if they are both the same (Winsock is included in vb.net class)

#1

Dim _WinSock As Object
Dim _LocalIP As String
_WinSock = CreateObject("mswinsock.winsock")
_LocalIP = Trim(_WinSock.LocalIP)
Debug.print(_LocalIP)

Dim _HostName = System.Net.Dns.GetHostName()
Dim _IPAdress = System.Net.Dns.GetHostAddresses(_HostName)(0).ToString
Debug.Print(_IPAdress)

Like car accidents, most hardware problems are due to driver error.

Samir R. Ibrahim

Luc Pattyn3-May-09 23:11

3-May-09 23:11

Hi,

your computer does not know what its public IP address is, since that depends on how you connect to the internet; intervening devices (your DSL modem, your provider, ..) can alter your public IP address. The only way to get it, is by getting it returned from some web site.

I have a page that does exactly that: http://www.perceler.com/getipadr1.php[^]. Send a WebRequest for it, and get the Response.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Avoiding unwanted divs (as in "articles needing approval") with the help of this FireFox add-in

Samir Ibrahim4-May-09 0:24

4-May-09 0:24

Nice Site

And here is the code to do it.

Dim _xmlHTTP
Dim _URL As String
_xmlHTTP = CreateObject("MSXML2.XMLHTTP")
_URL = "http://www.perceler.com/getipadr1.php"
_xmlHTTP.Open("GET", _URL, False)
_xmlHTTP.Send()
Debug.Print(_xmlHTTP.responseText)

Is that what you mean by WebRequest ?

I am asking to learn more feature. Thanks.

Like car accidents, most hardware problems are due to driver error.

Samir R. Ibrahim

Luc Pattyn4-May-09 0:48

4-May-09 0:48

You're welcome.

Samir Ibrahim wrote:
Is that what you mean by WebRequest ?

Not really, I was thinking of http://msdn.microsoft.com/en-us/library/system.net.webrequest.aspx[^] but your code seems to do a similar thing.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Avoiding unwanted divs (as in "articles needing approval") with the help of this FireFox add-in

Samir Ibrahim4-May-09 1:08

4-May-09 1:08

Hi Luc,

Almost all my example depends on object (WMI or CreateObject) which I used to use in VFP, So that i am trying to find VB.Net Pure code.

Thanks for the link, Very Usefull Smile | :)

Like car accidents, most hardware problems are due to driver error.

Samir R. Ibrahim

Luc Pattyn4-May-09 1:33

4-May-09 1:33

Hi again,

I have added example code to my web page on getipadr1[^].

It is C# code, but the same can be done in VB.NET (VB.NET has a Using...End Using block, similar to C#'s using statement).

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Avoiding unwanted divs (as in "articles needing approval") with the help of this FireFox add-in

Samir Ibrahim4-May-09 2:44

4-May-09 2:44

Much better than the Link microsoft you post. Wink | ;)

Here is the vb.net version of your code.

Dim url = "http://www.perceler.com/getipadr1.php"
Dim req As HttpWebRequest = WebRequest.Create(url)
Dim resp As WebResponse = req.GetResponse()
Dim stream As Stream = resp.GetResponseStream()
Dim reader As New StreamReader(stream)
Debug.Print(reader.ReadToEnd)

Like car accidents, most hardware problems are due to driver error.

Samir R. Ibrahim

Luc Pattyn4-May-09 2:57