About Us

MikeZz

Hi Dave,
testme2 Works Perfectly! Thanks!

"Dave Peterson" wrote:

Do you want those vblf's (alt-enters) converted to vbcrlf (the standard end of
line marker in DOS files)?

If yes:

Option Explicit
Sub testme()

Dim FSO As Object
Dim RegEx As Object

Dim myFile As Object
Dim myContents As String
Dim myOutFileName As String

myOutFileName = "C:\testout.txt"

myContents = ActiveCell.Value

Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.Global = True
.IgnoreCase = False
.Pattern = vbLf
myContents = .Replace(myContents, vbCrLf)
End With

Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFile = FSO.CreateTextFile(myOutFileName)
myFile.Write myContents
myFile.Close

End Sub

If you don't want vbcrlf, you can drop all that RegEx stuff:

Option Explicit
Sub testme2()

Dim FSO As Object

Dim myFile As Object
Dim myContents As String
Dim myOutFileName As String

myOutFileName = "C:\testout.txt"

myContents = ActiveCell.Value

Set FSO = CreateObject("Scripting.FileSystemObject")

Set myFile = FSO.CreateTextFile(myOutFileName)
myFile.Write myContents
myFile.Close

End Sub

MikeZz wrote:

Hi,
I have a very long string that has Line Feeds (Char-10) already in it. It
could easily have close to a 1000 lines.

Is there a way to just save the string to a text file or do I have to parse
the string into lines and write each one individually?

I guess I should also ask what the max length of a string could be in Excel
2003 VBA but I can probably find that out with a google search.

Thanks for any advice
Mike Zz

--

Dave Peterson
.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Japanese text lost when save as tab delimited text file	Greg Lovern	Excel Programming	0	October 24th 07 08:39 PM
How do you save an excel file to be read as IBM-type text file ?	Dee Franklin	Excel Worksheet Functions	2	October 10th 06 02:46 AM
How can I save a file as a comma-delimited text file in Excel?	LAM	Excel Discussion (Misc queries)	1	May 3rd 05 10:24 PM
Excel VBA - open text file, replace text, save file?	Cybert	Excel Programming	2	October 2nd 04 01:05 AM
Save As - Multiple Sheets fails to save as text file	Ravee Srinivasan	Excel Programming	2	November 10th 03 04:05 PM

Menu

About Us