Convert textbox contents to files - Visual Basic 4 / 5 / 6

Paul

How would I convert the contents of a textbox into text files.

Say I have a textbox containin the following...
13-02-00 - Paul Oakenfold
06-02-00 - William Orbit
30-01-00 - Laurent Garnier
23-01-00 - Guy Ornadel
16-01-00 - Dave Clarke
09-01-00 - Scott Bond
02-01-00 - Mr C
I would like to loop thru the textbox and need each line to be saved as a
text file under that name. So I would end up with 7 blank text files e.g....

13-02-00 - Paul Oakenfold.txt
06-02-00 - William Orbit.txt
30-01-00 - Laurent Garnier.txt
23-01-00 - Guy Ornadel.txt
16-01-00 - Dave Clarke.txt
09-01-00 - Scott Bond.txt
02-01-00 - Mr C.txt

I've tried getting the contents of the textbox

Thanks....

Jul 17 '05 #1

Subscribe Reply

3773

Ken Halter

Here's one way....

Needs a command button
'============== ===
Option Explicit

Private Sub Command1_Click( )
Const START_PATH = "C:\Temp\"
Dim sFullPath As String
Dim v As Variant
Dim i As Integer
Dim iFile As Integer

'Split the contents into an array
v = Split(Text1.Tex t, vbCrLf)
iFile = FreeFile

For i = 0 To UBound(v)
If Len(v(i)) > 0 Then
iFile = FreeFile
sFullPath = START_PATH & v(i)
Debug.Print "Creating " & sFullPath & " ...."
Open sFullPath For Output As iFile
Close iFile
End If
Next
Debug.Print "Done"

End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.SelText = "13-02-00 - Paul Oakenfold.txt" & vbCrLf
Text1.SelText = "06-02-00 - William Orbit.txt" & vbCrLf
Text1.SelText = "30-01-00 - Laurent Garnier.txt" & vbCrLf
Text1.SelText = "23-01-00 - Guy Ornadel.txt" & vbCrLf
Text1.SelText = "16-01-00 - Dave Clarke.txt" & vbCrLf
Text1.SelText = "09-01-00 - Scott Bond.txt" & vbCrLf
Text1.SelText = "02-01-00 - Mr C.txt" & vbCrLf

End Sub
'============== ===

--
Ken Halter - MS-MVP-VB - http://www.vbsight.com
Please keep it in the groups..
"Paul" <12************ **@btinternet.c om> wrote in message
news:bj******** **@sparta.btint ernet.com...

How would I convert the contents of a textbox into text files.

Say I have a textbox containin the following...
13-02-00 - Paul Oakenfold
06-02-00 - William Orbit
30-01-00 - Laurent Garnier
23-01-00 - Guy Ornadel
16-01-00 - Dave Clarke
09-01-00 - Scott Bond
02-01-00 - Mr C
I would like to loop thru the textbox and need each line to be saved as a
text file under that name. So I would end up with 7 blank text files e.g....

13-02-00 - Paul Oakenfold.txt
06-02-00 - William Orbit.txt
30-01-00 - Laurent Garnier.txt
23-01-00 - Guy Ornadel.txt
16-01-00 - Dave Clarke.txt
09-01-00 - Scott Bond.txt
02-01-00 - Mr C.txt

I've tried getting the contents of the textbox

Thanks....

Jul 17 '05 #2

Paul

Thanks Ken, works a treat.

"Ken Halter" <Ken_Halter@Use _Sparingly_Hotm ail.com> wrote in message
news:#S******** ******@TK2MSFTN GP09.phx.gbl...

Here's one way....

Needs a command button
'============== ===
Option Explicit

Private Sub Command1_Click( )
Const START_PATH = "C:\Temp\"
Dim sFullPath As String
Dim v As Variant
Dim i As Integer
Dim iFile As Integer

'Split the contents into an array
v = Split(Text1.Tex t, vbCrLf)
iFile = FreeFile

For i = 0 To UBound(v)
If Len(v(i)) > 0 Then
iFile = FreeFile
sFullPath = START_PATH & v(i)
Debug.Print "Creating " & sFullPath & " ...."
Open sFullPath For Output As iFile
Close iFile
End If
Next
Debug.Print "Done"

End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.SelText = "13-02-00 - Paul Oakenfold.txt" & vbCrLf
Text1.SelText = "06-02-00 - William Orbit.txt" & vbCrLf
Text1.SelText = "30-01-00 - Laurent Garnier.txt" & vbCrLf
Text1.SelText = "23-01-00 - Guy Ornadel.txt" & vbCrLf
Text1.SelText = "16-01-00 - Dave Clarke.txt" & vbCrLf
Text1.SelText = "09-01-00 - Scott Bond.txt" & vbCrLf
Text1.SelText = "02-01-00 - Mr C.txt" & vbCrLf

End Sub
'============== ===

--
Ken Halter - MS-MVP-VB - http://www.vbsight.com
Please keep it in the groups..
"Paul" <12************ **@btinternet.c om> wrote in message
news:bj******** **@sparta.btint ernet.com...
How would I convert the contents of a textbox into text files.

Say I have a textbox containin the following...
13-02-00 - Paul Oakenfold
06-02-00 - William Orbit
30-01-00 - Laurent Garnier
23-01-00 - Guy Ornadel
16-01-00 - Dave Clarke
09-01-00 - Scott Bond
02-01-00 - Mr C
I would like to loop thru the textbox and need each line to be saved as a text file under that name. So I would end up with 7 blank text files e.g....
13-02-00 - Paul Oakenfold.txt
06-02-00 - William Orbit.txt
30-01-00 - Laurent Garnier.txt
23-01-00 - Guy Ornadel.txt
16-01-00 - Dave Clarke.txt
09-01-00 - Scott Bond.txt
02-01-00 - Mr C.txt

I've tried getting the contents of the textbox

Thanks....

Jul 17 '05 #3

Similar topics

12749

Reading a multiline textbox and wrtitng to text file

by: Suresh Kumaran | last post by:

Hi All, Does anybody know the sytax in VB.NET to write the contents of a multiline text box to a text file? Appreciate help. Suresh

.NET Framework

2253

Textbox editing...

by: Ketta | last post by:

I know how to read a file system object and output it to the browser page. The desired result would be to put that file into a textbox on the screen for a user to modify and then write the file back to the file system. The concept seems simple enough, read the text file into a variable then some magic asp will put it into a textbox value, then somehow take that value and write the file. I know how to write files to the system as well. I...

ASP / Active Server Pages

51726

Convert a char array to a managed system string

by: Trep | last post by:

Hi there! I've been having a lot of difficult trying to figure out a way to convert a terminated char array to a system::string for use in Visual C++ .NET 2003. This is necessary because I have some legcay C code that needs to process a string taken from a textbox, then I need to re-display the string as the textbox->Text. I easily found how to convert from system::string to char but I can't figure out how to go the other way!!

C / C++

2725

Need Help... Convert VB.NET to C#

by: manmit.walia | last post by:

Hello All, I am stuck on a conversion problem. I am trying to convert my application which is written in VB.NET to C# because the project I am working on currently is being written in C#. I tried my best to convert it, but somehow the app does not work. I am also not getting any errors when I complie thus, letting me know I am on the write track. Basically what I want to do is edit,add,delete, and update an XML file in a DataGrid. Below...

C# / C Sharp

3166

Convert all folder contents that are xls to csv

by: jon.ingram | last post by:

I need some vb code that I could perhaps run from access that will look in a particular folder I could specify in the code, and convert all the files (just excel are saved there) to .csv. Is this possible? This would be a huge help for me and any help would be greatly appreciated. Also, there are only 5 files in the folder (the folder path never changes) but they are updated monthly so if we cant evaluate the entire

Microsoft Access / VBA

10459

convert .pdf files to .txt files

by: Davor | last post by:

Hi, my name is david. I need to read information from .pdf files and convert to .txt files, and I have to do this on python, I have been looking for libraries on python and the pdftools seems to be the solution, but I do not know how to use them well, this is the example that I found on the internet is: from pdftools.pdffile import PDFDocument from pdftools.pdftext import Text

Python

9886

how to convert a multiline textbox to a single line string?

by: garyusenet | last post by:

I have a multi line text box, i'd like to store the contents of this textbox to a text file. However when I write the value of ' textbox.text ' to the file it is written verbatim spanning many lines if enter has been pressed. I'd like to store the value of the textbox on one single line in the file. How do i do this? I assume i'll need to read new line characters from the textbox.text string, and replace them with some token ?

C# / C Sharp

2909

Access 'there isnt enough memory' when scrolling textbox

by: robert.waters | last post by:

I have an Access database frontend linked via ODBC to a large (gigabytes) mysql database. I need to view a large amount of data in a a textbox (variable up to 300K), but I receive a 'there isnt enough memory' error whenever I scroll past N number of bytes in a textbox that has been filled with a lot of data. I am not sure what N is, but for a large chunk of data it occurs at about the halfway scroll, and smaller chunks might not throw...

Microsoft Access / VBA

10778

Play with image A Technique in Java - Search image, Convert image to text , Hide data

by: Debadatta Mishra | last post by:

Introduction In this article I will provide you an approach to manipulate an image file. This article gives you an insight into some tricks in java so that you can conceal sensitive information inside an image, hide your complete image as text ,search for a particular image inside a directory, minimize the size of the image. However this is not a new concept, there is a concept called Steganography which enables to conceal your secret...

Java

9001

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...

General

8839

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...

Windows Server

9397

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...

Online Marketing

9344

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...

Windows Server

8264

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...

Career Advice

6810

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...

Microsoft Access / VBA

4893

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

3327

transfer the data from one system to another through ip address

by: 6302768590 | last post by:

Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system

C# / C Sharp

2807

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP