problem with writeline

[joecool2005]

Hi,I have a really big string inside a variable "data".When I did Response.Write(data), I was able to display all the string.But when I did objFile.WriteLine(data) to a file, I was not able to write all the string in the file. It was truncated.Why?What should I do?Thx

[Yahweh]

Hi,I have a really big string inside a variable "data".When I did Response.Write(data), I was able to display all the string.But when I did objFile.WriteLine(data) to a file, I was not able to write all the string in the file. It was truncated.Why?What should I do?Thx

Odds are, there is some kind of buffer limit, probably 64kb, that you can write to a text file at any given time. If that is the case, then the simple solution to your problem is writing your data is smaller chunks, rather than all at once. You can split your data into fixed-sized chunks using a simple regular expression, then you can write your data chunk by chunk as you loop through the matches collection:

Dim regex, match, matches	'regex variablesdim fs, f	'text file vars'creating a text fileset fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.CreateTextFile(Server.Mappath(someFileName),true)	'create regexp object and set properties	set regex = new regexp	regex.IgnoreCase = True	regex.Global = True	regex.Pattern = "[\s\S]{1,10000}"					'matches *at most* 10000 characters at a time					'I'm using "[\s\S]" rather than "." as a convenient way to match newline characters.	'Create matches collection to parse data into managable 10000-character chunks	Matches = regex.Execute(data)	'Loop through matches collection	for each match in matches		'writing each chunk to the file		f.write(Match.Value)	nextf.close'cleaning upset regexp = nothingset f=nothingset fs=nothing

[joecool2005]

Hi,Thanks for your help.I try to execute your code and I have an error on this lineMatches = regex.Execute(data)It says "Wrong number of arguments or invalid property assignment "My data contains a long XML string and there is no newline.thx

[pulpfiction]

Try this...

dim str, slt' some sample textstr = "With ASP you can dynamically edit, change or add any content of a Web page, respond to data submitted from HTML forms, access any data or databases and return the results to a browser, customize a Web page to make it more useful for individual users"dim st, i, size' Mention number of characters to splitsize = 10i = 0st = 1while st<=len(str)	slt = Mid(str, st, size)	st = st + size	i = i + 1	response.write(slt)	response.write("<br />")wend

[Yahweh]

Hi,Thanks for your help.I try to execute your code and I have an error on this lineMatches = regex.Execute(data)It says "Wrong number of arguments or invalid property assignment "My data contains a long XML string and there is no newline.thx

Oops, that should have said:

Set Matches = regex.Execute(data)

Matches is an object, so you have to use "Set" with it.