Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Separate strings from a file

Posted on 2000-05-14
9
Medium Priority
?
134 Views
Last Modified: 2010-05-02
I need to read in a text file
containing 4 strings,
each of those strings need to be placed
in 4 separate labels, how do i do that?
0
Comment
Question by:Mean
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
9 Comments
 

Author Comment

by:Mean
ID: 2808692
Adjusted points from 50 to 70
0
 
LVL 28

Expert Comment

by:AzraSound
ID: 2808702
how are the string separated in your text file?
0
 
LVL 28

Expert Comment

by:AzraSound
ID: 2808713
with a file that looked like this i wrote this up

File ->  
string1 string2 string3 string4

Code ->
1) Add a label to the form and make its index property 0, then paste this code:


Option Explicit

Private Sub Form_Load()
    Const ForReading = 1
    Dim filesys, txtStream As Object
    Dim fileStr As String
    Dim arr As Variant
    Dim i As Integer
    For i = 1 To 3
        Load Label1(i)
        Label1(i).Left = Label1(i - 1).Left
        Label1(i).Top = Label1(i - 1).Top + Label1(i).Height
        Label1(i).Visible = True
    Next
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set txtStream = filesys.OpenTextFile("C:\mypath\myfile.txt", _
        ForReading)
    fileStr = txtStream.ReadAll
    arr = Split(fileStr)
    For i = 0 To Label1.ubound
        Label1(i).Caption = arr(i)
    Next
End Sub


0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 6

Expert Comment

by:DrDelphi
ID: 2808736
Open "Z:\read.txt" For Input As #1
Dim line(5)
For x = 1 To 5
 Line Input #1, line(x)
 Next
Label1.Caption = line(1)
Label2.Caption = line(2)
Label3.Caption = line(3)
Label4.Caption = line(4)
Close
0
 
LVL 4

Expert Comment

by:dreamvb
ID: 2808960
Here hope this might help you out I used an Array of Five Labels

Dim FileNum As Integer
Dim Counter As Integer
Dim StrBuffer As String
On Error Resume Next
FileNum = FreeFile
 Counter = 0
Open "C:\test.txt" For Input As FileNum
 Do While Not EOF(FileNum)
 Input #FileNum, StrBuffer
 Counter = Counter + 1
 Label1(Counter).Caption = StrBuffer
  Loop
  Close #FileNum
0
 

Author Comment

by:Mean
ID: 2808970
Its part of a quiz game,
containing 4 questions
The file would look like this:
Q#3,Text1,Text2,Text3,Text4
or something similar..

Where number 3 is the right question
in the row

Still figuring out a way how
to give the questions a number
so i can use 1 textfile
and doing a random choice
of all the question's in the file

sorry for any spelling mistakes (if any)
i'm dutch..

Thanks for your comments..
0
 
LVL 28

Expert Comment

by:AzraSound
ID: 2808973
use the exact same code i posted above except change these lines:


arr = Split(fileStr, ",")
For i = 0 To Label1.ubound
    Label1(i).Caption = arr(i + 1)
Next
0
 

Author Comment

by:Mean
ID: 2809010
Thanks you very much it helped me a lot,
just what it needs to do, nothing more.
0
 
LVL 28

Accepted Solution

by:
AzraSound earned 280 total points
ID: 2809030
there is an "Accept comment as Answer" button you can click to accept an answer to this question to move it out of the "Questions waiting to be Answered" area
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

618 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question