Reading from an awkward file...Thanks

intraman · Jun 15th, 2005, 02: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, 03:02 PM

Do you know anything about the XML DOM?

intraman · Jun 15th, 2005, 03: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, 03: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, 03: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, 03:02 PM	#2
MartinLiss Administrator Join Date: Sep 99 Location: Looking over your shoulder from San Jose, CA Posts: 29,638	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 • Private 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 Viewer • VBF Photo Contest Winners Please go to the Thread Tools menu and click Mark Thread Resolved when you have your answer. Marty If someone helped you today then please consider rating their post.

Jun 15th, 2005, 03:34 PM	#4
MartinLiss Administrator Join Date: Sep 99 Location: Looking over your shoulder from San Jose, CA Posts: 29,638	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 • Private 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 Viewer • VBF Photo Contest Winners Please go to the Thread Tools menu and click Mark Thread Resolved when you have your answer. Marty If someone helped you today then please consider rating their post.

Jun 15th, 2005, 03:51 PM	#5
moeur Old Member Join Date: Nov 04 Location: In Hiding.... Weather: sizzzzlin'........ Code: Secret Posts: 2,681	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	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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