Reading from an awkward file...Thanks

intraman · Jun 15th, 2005, 01:36 PM

Hello,

Any help is appreciated,

I wish to read from a data file called persist.data and then read the ENTIRE file into one variable. Is this possible?
The file contents will also be this only with different numbers.

Code:

<?xml version="1.0" encoding="UTF-8"?>
<root>
	<server>
		<stats>
			<total>
				559
			</total>
			<error>
				16
			</error>
			<html>
				197
			</html>
			<image>
				362
			</image>
			<notmodified>
				149
			</notmodified>
			<bytes>
				3043332
			</bytes>
			<uptime>
				5154
			</uptime>
			<since>
				Wed, 15 Jun 2005 14:05:31 GMT
			</since>
		</stats>
		<host>
			<id>
				1
			</id>
			<stats>
				<total>
					559
				</total>
				<error>
					16
				</error>
				<html>
					197
				</html>
				<image>
					362
				</image>
				<notmodified>
					149
				</notmodified>
				<bytes>
					3043332
				</bytes>
				<uptime>
					5154
				</uptime>
				<since>
					Wed, 15 Jun 2005 14:05:31 GMT
				</since>
			</stats>
		</host>
	</server>
</root>

Persist.data

Could all of this data fit into one variable?
If not, how would I got about split it into an array using the Input command.

Regards,

Jord

MartinLiss · Jun 15th, 2005, 02:02 PM

Do you know anything about the XML DOM?

intraman · Jun 15th, 2005, 02:25 PM

Quote:

Originally Posted by MartinLiss

Do you know anything about the XML DOM?

Afraid not, all I know is that it is a user defined set of tags.

MartinLiss · Jun 15th, 2005, 02:34 PM

Then what you want to do is to download MSXML4 from Microsoft and install it. You may already have MSXML2 or 3 on your PC and they will work but 4 is better. Then using commands like selectNodes you will be able to get at the data you need. There are a lot of examples in this forum and the XML forum that should help you, and/or you can ask questions once you get started.

moeur · Jun 15th, 2005, 02:51 PM

to read it into one variable

VB Code:

Dim FileLen As Integer
Dim inVar As String
Open "C:\Persist.data" For Binary As #1
FileLen = LOF(1)
inVar = String(FileLen, 0)
Get #1, , inVar
Close #1
Debug.Print inVar

Jun 15th, 2005, 02:02 PM	#2
MartinLiss Administrator Join Date: Sep 99 Location: Looking over your shoulder from San Jose, CA Posts: 30,814	Re: Reading from an awkward file...Thanks Do you know anything about the XML DOM? __________________ *Tips, Examples & Tutorials:* A valuable forum tool • Generate unique TreeView keys • TreeView with "open" and "closed folder" icons • Time code using GetTickCount • How to trap the Tab key • Scroll a form • NumberBox ActiveX control • Color a ListView row • An InputBox form • How to use SaveSetting and GetSetting • A program registration scheme • Spellcheck a Textbox • Resize controls • Open Windows Explorer at Last Visited Path • A Blackjack Game • Count lines of code • V1.3Private Message Viewer • Copy/Paste VB Code • Paste VB Code Add-In • Insert Procedure Names Add-In • A calculator for the game of Spider • My review of REALbasic 2008 • VB6 Debug Tutorial • Picture/Video Viewer • VBF Photo Contest Winners Please go to the Thread Tools menu and click Mark Thread Resolved when you have your answer. 2009-2010 If someone helped you today then please consider rating their post.

Jun 15th, 2005, 02:34 PM	#4
MartinLiss Administrator Join Date: Sep 99 Location: Looking over your shoulder from San Jose, CA Posts: 30,814	Re: Reading from an awkward file...Thanks Then what you want to do is to download MSXML4 from Microsoft and install it. You may already have MSXML2 or 3 on your PC and they will work but 4 is better. Then using commands like selectNodes you will be able to get at the data you need. There are a lot of examples in this forum and the XML forum that should help you, and/or you can ask questions once you get started. __________________ *Tips, Examples & Tutorials:* A valuable forum tool • Generate unique TreeView keys • TreeView with "open" and "closed folder" icons • Time code using GetTickCount • How to trap the Tab key • Scroll a form • NumberBox ActiveX control • Color a ListView row • An InputBox form • How to use SaveSetting and GetSetting • A program registration scheme • Spellcheck a Textbox • Resize controls • Open Windows Explorer at Last Visited Path • A Blackjack Game • Count lines of code • V1.3Private Message Viewer • Copy/Paste VB Code • Paste VB Code Add-In • Insert Procedure Names Add-In • A calculator for the game of Spider • My review of REALbasic 2008 • VB6 Debug Tutorial • Picture/Video Viewer • VBF Photo Contest Winners Please go to the Thread Tools menu and click Mark Thread Resolved when you have your answer. 2009-2010 If someone helped you today then please consider rating their post.

Jun 15th, 2005, 02:51 PM	#5
moeur Old Member Join Date: Nov 04 Location: In Hiding.... Weather: sizzzzlin'........ Code: Secret Posts: 2,701	Re: Reading from an awkward file...Thanks to read it into one variable VB Code: Dim FileLen As Integer Dim inVar As String Open "C:\Persist.data" For Binary As #1 FileLen = LOF(1) inVar = String(FileLen, 0) Get #1, , inVar Close #1 Debug.Print inVar

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)