Reading form text file (RESOLVED)

[rdcody]

Are you guys talking about the split function by manavo11? I have that,
but I still get the same error. Any ideas?

[seraphicmortal]

Hi RD Cody! I had that kind of program as well.. why don't you give this a try.. These codes saves the text being inputted by the user in the textbox in a file (which the file extension can btw be specified by you) and the user can retrieve the file and show the same text and order back to the form where your textboxes are... Quite a long explanation eyh.. You can tweek it to suit your needs if you want.

I made a class, which I named namelist.
This class has properties namely:
name
symbol
quantity

My example.plp output would look like this when opened in a text editor(like notepad):
[Name] x32
[Quantity] x75
[Symbol] q21


(globalvar.bas)

Option Explicit
 
Public pl1 As New namelist

(frm_field) 'This is the form where the textboxes are

Option Explicit
 
Private Sub fieldupload()
    With pl1
        .symbol = txt_sym.Text
        .name = txt_name.Text
        .quantity = txt_qty.Text
    End With
End Sub
 
Private Sub cmd_apply_Click()
    If Len(txt_sym.Text) = 0 Or _
       Len(txt_name.Text) = 0 Or _
       Len(txt_qty.Text) = 0 Or _
        MsgBox "please enter the necessary values."
        txt_sym.SetFocus
    Else
        fieldupload
        MsgBox ("Creating profile...  Please choose what directory to save your profile.")
        frm_dir.Caption = "Save Profile"
        frm_dir.Show vbModal
    End If
End Sub
 
Function GetString(tmpStr As String, tmpDiv As String, Mode As String) As String
Dim tmpRetStr As String
Dim tmpLen As Integer
Dim tmpErr As Integer
  ' *****************************************************
  ' tmpString = The whole string
  ' tmpDiv = The Divider chr
  ' if mode = "F" then get the string in front of the div
  '
  ' Return values:
  '  Errors
  '    Err1 = wrong mode 
  '    Err2 =  No Div, did not found a divider
  '    Err5 = No String
  '    Err6 = No C, did not find any string in the middle
  '  Normal
  '    String
  ' ******************************************************
  ' Example: GetString("Red=Green","=","F") will retrun "Red"
  ' *** for string
  tmpErr = 0
  If Len(tmpStr) = 0 Then
    tmpErr = 5
    GoTo GetStringErr
  End If
  
  ' *** test for chr in tmpDiv
  If Len(tmpDiv) = 0 Then
    tmpErr = 2
    GoTo GetStringErr
  End If
 
  ' *** test for div in string
  If InStr(1, tmpStr, tmpDiv) = 0 Then
    tmpErr = 2
    GoTo GetStringErr
  End If
  
  If Mode = "C" Then
     tmpRetStr = Mid(tmpStr, 9)
     If Len(tmpRetStr) > 0 Then
         GetString = tmpRetStr
         Exit Function
     Else
         tmpErr = 6
         'GoTo GetStringErr
         MsgBox ("Error: Non-standard format in saving profile name.  No hyphen '-' found.")
         frm_dir.txt_plprofile.Text = "*.plp"
     End If
         MsgBox ("Error: Non-standard format in saving profile name.  No hyphen '-' found.")
         frm_dir.txt_plprofile.Text = "*.plp"
  End If
 
    tmpErr = 1
    frm_dir.txt_plprofile.Text = "*.plp"
    'GoTo GetStringErr
  Exit Function
GetStringErr:
GetString = "Err" & tmpErr
End Function
 
 
Private Sub loadfield()
    txt_sym.Text = pl1.symbol
    txt_name.Text = pl1.name
    txt_qty.Text = pl1.quantity
End Sub
   
Private Sub cmd_back_Click()
    Form_Load
    Me.Hide
    frm_loadfile.Show vbModal
End Sub
 
Private Sub cmd_next_Click()
    Me.Hide
    frm_summary.Show vbModal ' another form which basically are just labels that shows a summmay of the information
End Sub
 
Private Sub cmd_retrieve_Click()
    frm_dir.file1.Enabled = True
    loadfield
    
    frm_dir.Caption = "Load Profile"
    frm_dir.Show vbModal
End Sub
 
Private Sub Form_Load()
On Error GoTo Form_Load_Error
'This code sets up the Text Boxes
    cmd_next.Enabled = False
    Me.txt_name.Text = ""
    Me.txt_qty.Text = ""
    Me.txt_sym.Text = ""
On Error GoTo 0
Exit Sub
 
Form_Load_Error:
MsgBox "Error " & Err.Number & " (" & Err.description & ") in procedure Form_Load of Form " & Me.Name
End Sub
 
Private Sub Validate_Entry(ByRef txtBox As TextBox)
 
    If Left$(txtBox.Text, 1) <> vbNullString Then
        If UCase(txtBox.Text) Like "[A-Z]" & String(Len(txtBox.Text) - 1, "#") And Len(txtBox.Text) < 6 Then
            txtBox.Text = UCase(txtBox.Text)
            txtBox.SelStart = Len(txtBox.Text)
        Else
            MsgBox "Please try again.", vbOKOnly + vbInformation, "Invalid Entry"
            txtBox.Text = ""
        End If
    End If
End Sub
 
Private Sub txt_qty_Change()
    Call Validate_Entry(txt_qty)
End Sub
 
Private Sub txt_sym_Change()
    Call Validate_Entry(txt_sym)
End Sub
 
Private Sub txt_name_Change()
    Call Validate_Entry(txt_name)
End Sub

now to save the text inputted in the textbox in a file....use this
(frm_dir)

Option Explicit
Public profilepath As String
Public finalprofile As String
 
Private Sub Form_Load()
Dim prof As String
    txt_profilepath.Enabled = False
    file1.Enabled = False
    txt_plprofile.Text = frm_loadfile.var1
    prof = frm_field.GetString(txt_plprofile.Text, "-", "C")
    txt_plprofile.Text = prof + ".plp"
     'txt_plprofile.Text = prof + ".plp"
End Sub
 
Private Sub cmd_cancel_Click()
    MsgBox "Cancelled"
    Unload Me
End Sub
 
Private Sub cmd_ok_Click()
Dim prof As String
 
Select Case Me.Caption
    Case "Save Profile"
    txt_profilepath.Text = file1.Path & "\" & file1.FileName & txt_plprofile.Text
        If isFile(txt_profilepath.Text) Then
            txt_plprofile.Text = frm_loadfile.var1
            prof = frm_field.GetString(txt_plprofile.Text, "-", "C")
                If MsgBox("File " & txt_profilepath & " exists.  Do you want to overwrite the current profile?{Y/N]", vbQuestion + vbYesNo, App.ProductName + " Prompt") = vbYes Then
                    SaveProfile txt_profilepath.Text, pl1
                    finalprofile = txt_plprofile.Text
                Else
                    txt_profilepath.Text = file1.Path & file1.FileName & "\" & prof & Format(Now, "mmddyyyyhhmmss") & ".plp"
                    SaveProfile txt_profilepath.Text, pl1
                    finalprofile = txt_plprofile.Text
                End If
        Else
            MsgBox "Saving " & txt_profilepath & " as new profile."
            SaveProfile txt_profilepath.Text, pl1
            finalprofile = txt_plprofile.Text
        End If
 
        profilepath = txt_profilepath.Text
        frm_field.cmd_next.Enabled = True
 
    Case "Load Profile"
        txt_profilepath.Text = file1.Path & "\" & file1.FileName
        MsgBox "Loading " & txt_profilepath & " profile."
            LoadProfile txt_profilepath.Text, pl1
        profilepath = txt_profilepath.Text
        frm_field.cmd_next.Enabled = True
End Select
    Me.Hide
End Sub
 
Private Sub LoadProfile(WhatFile As String, TheProfile As partslist)
Dim FreeFileHandle  As Integer, a$, B() As String
 
    FreeFileHandle = FreeFile
    Open WhatFile For Input As FreeFileHandle
    With TheProfile
        Line Input #FreeFileHandle, a ' "[Symbol] " & .symbol
        B = Split(a, " ")
        .symbol = B(1)
        frm_field.txt_sym.Text = .symbolic
        
        Line Input #FreeFileHandle, a ' "[Name] " & .Name
        B = Split(a, " ")
        .name = B(1)
        frm_field.txt_name.Text = .name
        
        Line Input #FreeFileHandle, a '  "[Quantity] " & .quantity
        B = Split(a, " ")
        .quantity = B(1)
        frm_field.txt_qty.Text = .quantity
 
    End With
    Close FreeFileHandle
End Sub
 
 
Private Sub SaveProfile(WhatFile As String, TheProfile As namelist)
Dim FreeFileHandle  As Integer
 
    FreeFileHandle = FreeFile
    Open WhatFile For Output As FreeFileHandle
    With TheProfile
        Print #FreeFileHandle, "[Name] " & .name
        Print #FreeFileHandle, "[Quantity] " & .quantity
        Print #FreeFileHandle, "[Symbolic] " & .symbol
    End With
    Close FreeFileHandle
End Sub
 
Private Sub dir1_Change()
    file1.Path = dir1.Path
End Sub
 
Private Sub drive1_Change()
    dir1.Path = drive1.Drive
End Sub
 
Private Sub file1_PathChange()
    Me.Caption = "Dialog Box - [" & file1.Path & "]"
End Sub
 
Private Sub file1_Click()
    txt_plprofile.Text = file1.FileName 'file1 is a file list box
End Sub
 
Function isFile(ByVal sFileName As String) As Integer
  On Error Resume Next
  Dim lFileLength As Long
  Const ATTR_NORMAL = 0
 
  isFile = False
  If Dir$(sFileName, ATTR_NORMAL) <> "" Then
  lFileLength = FileLen(sFileName)
  If (lFileLength > 0) Then isFile = True
  End If
End Function

I hope this helps..