|
You have some wierdness going on around your arrays, either i am missing something or your code is wrong, here are all the NodeStack references;
Line 141: Dim NodeStack() as String
Line 168: ReDim NodeStack(0)
Line 229:
For i = 1 To UBound(Nodes)
If i <= UBound(NodeStack) Then
If Trim(Nodes(i)) <> Trim(NodeStack(i)) Then
MatchAll = False
Exit For
End If
Else
MatchAll = False
Exit For
End If
Next
Up until this point NodeStack does not contain any values, it is a completly empty array, but yet you are trying to compare values etc from it.
It is not until later in your code that you give it any values by NodeStack = Nodes , and that is only if Nodes does actually contain values.
I suspect your code is throwing exceptions, but because you current On Error Resume Next you are not seeing them.
|
|
|
|
|
Hi,
Code is working fine. I tried by removing on error resume next. Problem is that if i add attribute to that tags which is like Attribute="1,1,1,..."
then it is giving error.
I am not sure the way to keep the attributes there.
Or is there any way after generation of an xml, can we open that xml file and add attributes to that?
Regards,
Priya.
|
|
|
|
|
I had a think about what i had written, and no it won't throw an excpetion, All that will happen is MatchAll will always be False so that code is effectively doing nothing (because 1 or higher is always greater than 0).
All you are doing is generating a bunch of strings and bolting them altogether.
After you generate the xml and the function exits, have you had a look at the XML file to see what it looks like?
|
|
|
|
|
Hi Dave,
Thanks. Yes XML looks good.
Regards,
Priya.
|
|
|
|
|
In that case all you are doing now then is adding the attributes to the node.
Create a helper function like; getNodeAttributes(node as integer) as string
In it, test node to see which attributes you need to build, then return them in the function, if the node does not need any attributes, then return an empty string.
Then modify;
strXML = strXML & "<" & Nodes(t) & ">"
to
strXML = strXML & "<" & Nodes(t) & getNodeAttributes(t) & ">"
simples........
|
|
|
|
|
Hi Dave,
Thanks lot.
I tried adding the funtion like :
Function getNodeAttributes(node As String) As String
Dim str_att As String
If node = "Policy_Years" Then
str_att = "Attribute=" & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1"" Attribute2="""
End If
End Function
and also changed
strXML = strXML & "<" & Nodes(t) & getNodeAttributes(Nodes(t)) & ">"
Just tried assigning attribute to only one node. But I am not getting any in the output for the tag Policy_Years.
Please Help..
Regards,
Priya.
|
|
|
|
|
Of course you wont, your passing across the node index not the node name;
priyaahh wrote: strXML = strXML & "<" & Nodes(t) & getNodeAttributes(Nodes(t)) & ">"
change to;
strXML = strXML & "<" & Nodes(t) & getNodeAttributes("Policy_Years") & ">"
|
|
|
|
|
Hi Dave,
Still no its not showing...
Is there any other way to implement this?
Regards,
Priya.
|
|
|
|
|
Well i fail to see what you are doing wrong. Don't give in!
At the end of the day, all you are doing is simple string manipulation, it doesn't matter if it is in XML format or any other text based format.
If your output XML file shows the attributes after your text generation then it is working.
If your output does not show the attributes, then your code is wrong.
You maybe need to start putting in extra breakpoints, debug.print(), or message boxes statements through your code until you can find out what is going on. everytime you generate a node or an attribute use these statements to see what the string is before and after. That way you will be able to see what you are getting versus what you are expecting at each stage. This is basic troubleshooting. As i have stated before your function is way to big, and you really need to restructure and break out lots of smaller helper functions which can then be called to piece the final text XML string.
As i say, this is basic string manipulation, so something obvious is wrong somewhere!
|
|
|
|
|
Hi Dave,
Thanks really!...
I am planning another way. TO open the xml file generated and then adding attributes to elements.
If you dont mind can you please give me example for this. Yes i remember, you have sent me the reference to DOM Methods for implementing this. But at this point of time with so much stress i cannt think of anything and this have to completed asap i do not have even hours of time...pls pls help..
Thanks in advance..reply if ur online
Regards,
Priya
|
|
|
|
|
No that is not the way to go, you are making things harder for your self, you will then have to read, parse, inject , save strings.
You have already got a function that generates a valid XML file, so you are 99% of the way there.
Have you done what i have suggested with regards to breakpoints and or debug statements?
strategically place them in your code, and you will see where the attributes you have added are then disappearing (if they are disappearing at all that is).
Also, in the previous message did you replace both instances of the code where you inject the attribute function? you have 2 lines that do it depending on the state of some value. Did you please a debug statement in your attribute function to prove it is being called? Did you add a debug.print statement to see what it was adding to the string?
|
|
|
|
|
Dave,
<pre attribute="vb">
Yes I did debut and breakpoints.
Actually I have to keep getNodeAttribute function in the first set not in the second set. I examined that.
During call of the above function i print the var in immediate window. it is printing like :
Attribute=1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1" Attribute2="
but when it go back to the main line from where are calling the function it is not returning anything..
Hope u might got my explanation..pls help
This is my function:
Function getNodeAttributes(node As String) As String
dim str_att as string
If node = "Policy_Years" Then
str_att = "Attribute=" & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1"" Attribute2="""
ElseIf node = "Loss_Descriptions" Then
str_att = "Attribute=" & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1"" Attribute2="""
Debug.Print str_att
End If
End Function
Calling the above function from the below line:
strXML = strXML & "<" & Nodes(t) & getNodeAttributes(Nodes(t)) & ">"
I wanted output like:
<Adjusted_Loss_PD Attribute="1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1" Attribute2="">
<Adjusted_Loss_PD-1 />
<Adjusted_Loss_PD-2 />
<Adjusted_Loss_PD-3 />
<Adjusted_Loss_PD-4 />
<Adjusted_Loss_PD-5 />
<Adjusted_Loss_PD-6 />
<Adjusted_Loss_PD-7 />
<Adjusted_Loss_PD-8 />
<Adjusted_Loss_PD-9 />
<Adjusted_Loss_PD-10 />
</Adjusted_Loss_PD>
</pre>
|
|
|
|
|
It looks like you are missing quotes from the output string.
As you already know, you have to increase the number of quotes if you want to add quotes to the output, you are only doing this in some of your code.
priyaahh wrote: str_att = "Attribute=" & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1"" Attribute2="""
Look at the code after "Attribute=" the opening value only has a single double quote, which will result in Attribute=1,1,....etc. and not Attribute="1,1,...etc.
yet at the end you correctly add the extra quotes. you can always consider user Char(34) in you string generator so you can see where you want to add the quote to the output e.g. (34 is the ASCII value for a double quote, look at asciitable[^])
str_Att = "Attribute1=" & chr(34) & "1,1,0,1,16711680,2,0,0,1,16711680,0,0,0,0,0,0.5,10,Arial,1" & chr(34) & " Attribute2=" & chr(34) & "some value" & chr(34)
|
|
|
|
|
Hi Dave,
Yes I have noticed that and changed...but why the function is not returning anything.
Regards,
Priya.
|
|
|
|
|
Because you haven't returned a value yet!
remember you need to set the function name to the value you want to return;
Function getNodeAttributes(node As String) As String
getNodeAttributes = str_att
End Function
|
|
|
|
|
Hi Dave,
Thank you so much for ur kind and immediate reply...it worked.
Regards,
Priya.
|
|
|
|
|
|
Nobody here is going to do your work so that you can be awarded a degree. Try searching the internet for a sample, but remember your professor will find the same results that you do. I expect he is reading your question right now.
It's time for a new signature.
|
|
|
|
|
rubyjera wrote: hi everyone.,
can u pls help me with my thesis the Online Student System with Enrollment System..
Im new in Visual Basic 6.0. I will use it to make the Enrollment System..
Can u give me a sample code for Enrollment System..
this is my email add. tejado_rubymadelene05@yahooo.com
Hope U can help me
Thanx
How about I send you a master's degree in computer science right away. That would be easier for everyone.
|
|
|
|
|
could you send me one also, i am fed up studying now..............
|
|
|
|
|
Hi,Friends! I used a treeview with checkbox in my form, now I want that after I checked a node, a groupbox was visible, after I made the treenode unchecked, the groupbox was hidden.It is easy when I use checkbox ,but I don't know how to do this with treenode.
I used AfterCheck event like this:
Private Sub treeMingPai_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treeMingPai.AfterCheck
If e.Node.Text = "English" Then
e.Node.ForeColor = Color.RoyalBlue
grpYWMP.Visible = True
End If
End Sub
It could make hidden groupbox visible when I had checked the treenode, but what should I do to make it hidden after I made it unchecked again?
PLX help me and give me some suggestions!Thans a lot!
|
|
|
|
|
The AfterCheck event is raised by both checking and unchecking actions.
So base your actions on e.Node.Checked .
Cheers
I don't like my signature at all
|
|
|
|
|
Hi,Estts!Thanks for your suggestion!I've do it!THX!
|
|
|
|
|
You're welcome
Cheers
I don't like my signature at all
|
|
|
|
|
I like to make with VB a command button in word to submit an email.
therefore I used 'the routing slip method' with this code:
Private Sub CommandButton1_Click()
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Reactie"
.AddRecipient "blabla@.nl"
.AddRecipient "blabla@gmail.com"
.Delivery = wdAllAtOnce
End With
ActiveDocument.Route
End Sub
when I save the document and try to use the command button I get a window with the message: a program is trying to access e-mail adresses you stored in outlook do you want to allow this?
I have three options:
no: it redirected it to a debug
yes: there nothing happening
yes for example 1 minut: it is sending just one time after I click on yes.I get an email who say that I have to choose an other emailadress to send it to.
this is not what I want.
the question is:
I send by email a word document to a person. I would like an answer from that person. therefore I want to make a command button in that word document. the action should be: the person answers the question in the word document clicks on the command button and the word document is send to my emailadres.
who can help me to the VB code for this command button. I'm pleased to receive a correct code or information why the code I have used don't work.
|
|
|
|
|