Navigators and 3G modems | Drivers, Managers, Connectors
aleksross
As an example of a subroutine in order to only read, pull out, memorize and organize some parameters from XML
This is a quote from one Poketovsky scriptOsprey its author is on a morta "ate one dog": D
Post has been editedmpal - 13.10.10, 11:45
As an example of a subroutine in order to only read, pull out, memorize and organize some parameters from XML
Sub XMLRead (xmlFile, tag, attribute)
xmlContent = ReadFile (xmlFile)
If (length (xmlContent) = 0)
Return ("exit")
Exitsub
Endif
#Parse the tag string into an array
i = 1
ForEach tagTemp in split (tag, ">", TRUE)
If (charAt (tagTemp, 1) eq "<")
tagTemp = SubStr (tagTemp, 2)
Endif
If (tagTemp ne "")
tagArray [i] = tagTemp
i + = 1
Endif
EndforEach
#Find the tag's location in the file. If it doesn't exist, search for it in lowercase.
ForEach tag in array (tagArray)
tempLocation = Find (xmlContent, "<" & tag, tagLocation)
If (tempLocation = 0)
tagLocation = Find (xmlContent, "<" & ToLower (tag), tagLocation)
Else
tagLocation = tempLocation
Endif
#If an attribute was specified, make sure that it was found; otherwise, continue searching.
If (attribute ne "" AND tag ne "root")
endTagLocation = Find (xmlContent, ">", tagLocation + 1)
tagContent = SubStr (xmlContent, tagLocation, endTagLocation - tagLocation)
attributeLocation = Find (tagContent, attribute & "=" "")
While (attributeLocation = 0 AND endTagLocation> = length (xmlContent) - 5)
tagLocation = Find (xmlContent, "<" & tag, endTagLocation)
If (tagLocation = 0)
tagLocation = Find (xmlContent, "<" & ToLower (tag), endTagLocation)
Endif
endTagLocation = Find (xmlContent, ">", tagLocation + 1)
tagContent = SubStr (xmlContent, tagLocation, endTagLocation - tagLocation)
attributeLocation = Find (tagContent, attribute & "=" "")
Endwhile
Endif
EndForEach
Clear (tagArray)
#If an attribute was not specificed, set the file pointer to the tag ...
If (attribute eq "")
valueLocation = Find (xmlContent, ">", tagLocation) + 1
valueLocationEnd = Find (xmlContent, "<", valueLocation)
value = SubStr (xmlContent, valueLocation, valueLocationEnd - valueLocation)
# ... else set the file pointer to the attribute
Else
#Find the attribute's location in the file. If it doesn't exist, search for it in lowercase.
tempValueLocation = Find (xmlContent, attribute & "=" "", tagLocation)
If (tempValueLocation = 0)
valueLocation = Find (xmlContent, ToLower (attribute) & "=" "", tagLocation)
Else
valueLocation = tempValueLocation
Endif
#Find and read the value from the attribute
If (valueLocation <> 0)
valueLocation + = length (attribute) + 2
Endif
valueLocationEnd = Find (xmlContent, "" "", valueLocation)
If (valueLocationEnd = valueLocation)
value = ""
Else
value = SubStr (xmlContent, valueLocation, valueLocationEnd - valueLocation)
Endif
Endif
Return (value)
Endsub
xmlContent = ReadFile (xmlFile)
If (length (xmlContent) = 0)
Return ("exit")
Exitsub
Endif
#Parse the tag string into an array
i = 1
ForEach tagTemp in split (tag, ">", TRUE)
If (charAt (tagTemp, 1) eq "<")
tagTemp = SubStr (tagTemp, 2)
Endif
If (tagTemp ne "")
tagArray [i] = tagTemp
i + = 1
Endif
EndforEach
#Find the tag's location in the file. If it doesn't exist, search for it in lowercase.
ForEach tag in array (tagArray)
tempLocation = Find (xmlContent, "<" & tag, tagLocation)
If (tempLocation = 0)
tagLocation = Find (xmlContent, "<" & ToLower (tag), tagLocation)
Else
tagLocation = tempLocation
Endif
#If an attribute was specified, make sure that it was found; otherwise, continue searching.
If (attribute ne "" AND tag ne "root")
endTagLocation = Find (xmlContent, ">", tagLocation + 1)
tagContent = SubStr (xmlContent, tagLocation, endTagLocation - tagLocation)
attributeLocation = Find (tagContent, attribute & "=" "")
While (attributeLocation = 0 AND endTagLocation> = length (xmlContent) - 5)
tagLocation = Find (xmlContent, "<" & tag, endTagLocation)
If (tagLocation = 0)
tagLocation = Find (xmlContent, "<" & ToLower (tag), endTagLocation)
Endif
endTagLocation = Find (xmlContent, ">", tagLocation + 1)
tagContent = SubStr (xmlContent, tagLocation, endTagLocation - tagLocation)
attributeLocation = Find (tagContent, attribute & "=" "")
Endwhile
Endif
EndForEach
Clear (tagArray)
#If an attribute was not specificed, set the file pointer to the tag ...
If (attribute eq "")
valueLocation = Find (xmlContent, ">", tagLocation) + 1
valueLocationEnd = Find (xmlContent, "<", valueLocation)
value = SubStr (xmlContent, valueLocation, valueLocationEnd - valueLocation)
# ... else set the file pointer to the attribute
Else
#Find the attribute's location in the file. If it doesn't exist, search for it in lowercase.
tempValueLocation = Find (xmlContent, attribute & "=" "", tagLocation)
If (tempValueLocation = 0)
valueLocation = Find (xmlContent, ToLower (attribute) & "=" "", tagLocation)
Else
valueLocation = tempValueLocation
Endif
#Find and read the value from the attribute
If (valueLocation <> 0)
valueLocation + = length (attribute) + 2
Endif
valueLocationEnd = Find (xmlContent, "" "", valueLocation)
If (valueLocationEnd = valueLocation)
value = ""
Else
value = SubStr (xmlContent, valueLocation, valueLocationEnd - valueLocation)
Endif
Endif
Return (value)
Endsub
This is a quote from one Poketovsky scriptOsprey its author is on a morta "ate one dog": D
holod @ 10/13/2010 09:02
in other words, it will be necessary to invent an XML parser and write it on the very same page
Post has been editedmpal - 13.10.10, 11:45
holod,
mpal
Well so I about it also speak
Parsing will save the mort: rolleyes:
Posted on 10/13/2010, 15:40:
But effective: beee:
mpal
Well so I about it also speak
Parsing will save the mort: rolleyes:
Posted on 10/13/2010, 15:40:
holod @ 10/13/2010 09:02
Not a grateful lesson: yes2:
But effective: beee:
Aleksross @ 10/13/2010, 6:40 PM
But effective
It is good to parse a file with a previously known structure, and if the structure slightly changes? Or change very much? So Caesar Caesar, locksmith, locksmith, I'm talking about Mort and XML :)
holod @ 10/13/2010, 21:58
It is good to parse a file with a previously known structure, and if the structure slightly changes? Or change very much?
Correctly formulated, dear comrade. : yes2:
Mlyn ... wrote, wrote everything was gone :)
A summary of what he wrote .. The place of indication, if the voice in Primo is gone, then there is no connection, if the phrases are not fully spoken or not all have a connection, but there is no money in the account :)
A summary of what he wrote .. The place of indication, if the voice in Primo is gone, then there is no connection, if the phrases are not fully spoken or not all have a connection, but there is no money in the account :)
Hehe, there will be a super-indication, everything is already invented, I will do it in the evening - tomorrow run-in;)
Is the sound indication (customizable) necessary or not? If yes, it would be necessary to find standard sounds (connect / disconnect / connect attempt) ... Maybe someone can help?
Is the sound indication (customizable) necessary or not? If yes, it would be necessary to find standard sounds (connect / disconnect / connect attempt) ... Maybe someone can help?
Vitt @ 10/14/2010 13:31
Maybe someone can help?
In the evening I will lay out those sounds with which the Miovsky connector fromholod but
Vitt @ 10/14/2010, 15:31
If yes, you should find standard sounds.
Here are the standard sounds from Windows.
Attached files
mini2440_ARMV4I_Release.rar(105.99 KB)Vitt @ 10/14/2010 13:31
Hehe, there will be a super-indication, everything has already been invented, I will do it in the evening - tomorrow run-in
We are waiting for this miracle indication: thank_you:: heppy_dancing:: D
Indication is ready, if tomorrow I successfully roll in - I'll post it.
While there was a glitch with a "hang" connection process, it is very unpleasant :(
While there was a glitch with a "hang" connection process, it is very unpleasant :(
holod @ 10/13/2010, 21:58
and if the structure is slightly changed?
And nobody canceled the cycles.
True, if there are no special tools for working with XML, then yes, it's hard ...
Mort should know what XML Node, Cild Node, NodeValue and so on are ...
If you do not know the horror: (
Post has been editedRoxer! - 15.10.10, 14:02
Roxer! @ 10/15/2010 3:00 PM
Mort should know what XML Node, Cild Node, NodeValue and so on are ...
No, he doesn't know that. He must be taught ...: girl_hysterics:
New version in the cap
Version 0.6 beta
- new interface
- graphic and sound indicators, tap on a graphic indicator - display of the main window
- setting the number of unsuccessful connections
- fixed some bugs
Known bugs - the indicator window can be seen on the taskbar
What's next
- custom auto-enumeration of connections, if attempts are exhausted
- customizable ability to work without the main window - someone wanted :)
- customizable launch of an external application upon the first successful connection attempt
Something like that, today I skated - it seems to work like a clock;) I mean, not only time shows: D
Version 0.6 beta
- new interface
- graphic and sound indicators, tap on a graphic indicator - display of the main window
- setting the number of unsuccessful connections
- fixed some bugs
Known bugs - the indicator window can be seen on the taskbar
What's next
- custom auto-enumeration of connections, if attempts are exhausted
- customizable ability to work without the main window - someone wanted :)
- customizable launch of an external application upon the first successful connection attempt
Something like that, today I skated - it seems to work like a clock;) I mean, not only time shows: D
Vitt,
Today I rode with a connector, the connection is maintained steadily, reconnected several times during breaks, artificially disconnected from the Internet in various ways, the connection was steadily restored. There is one wish that the indication can be made smaller, and then the square is very large: blush:
Post has been editedstesha99 - 16.10.10, 14:19
Today I rode with a connector, the connection is maintained steadily, reconnected several times during breaks, artificially disconnected from the Internet in various ways, the connection was steadily restored. There is one wish that the indication can be made smaller, and then the square is very large: blush:
Post has been editedstesha99 - 16.10.10, 14:19
[email protected], 16:17
Version 0.6 falls into error
You would have laid out a screen of errors, otherwise I have not had any mistakes yet. : yes2:
Post has been editedstesha99 - 16.10.10, 16:04
Dada, the screen would not see any errors.
stesha99,
a square is big so that you can poke a finger into it, I don’t know how anyone, but I don’t get into this one the first time;)
stesha99,
a square is big so that you can poke a finger into it, I don’t know how anyone, but I don’t get into this one the first time;)
©savagemessiahzine.com2005-2020 All rights reserved.
savagemessiahzine.com®- registered trademark.
Terms of Use | Denial of responsibility | Advertising placement
savagemessiahzine.com®- registered trademark.
Terms of Use | Denial of responsibility | Advertising placement