Programming Forums > Application Development > Visual Basic

Kilo · Nov 27th, 2005, 6:41 PM

for most likely a good reason it will not accept my FileName$ string when i want to open it? Wonder why?

Private Sub fileload_cmd_Click()
    Dim tmpData As String

    filepath_dia.ShowOpen     'open common dialog
    
    filepath_txt.Text = filepath_dia.FileName
    
    Open Trim$(FilePath$) For Input As #1
        
        Do
            Line Input #1, tmpData$
            
            If (Left$(tmpData, 6) = "\" \ ",\" \ ",") Then
                'stats_lbl(1).Caption = "Empty Record"
                LineNum = LineNum + 1
                msgbox_txt.Text = msgbox_txt.Text + "Line(" + LineNum + ")=empty record"
            Else
                LineNum = LineNum + 1
            End If
        Loop Until EOF(1)
        
    Close #1
   
End Sub

btw haven't used vb in like 3-4 years.. also how can i alter the common dialog fiter settings.. for lets say *.txt

(Toggle Plain Text)

commondialog1.filters=(*.txt)     //doesn't work

[/code]

Kilo · Nov 27th, 2005, 7:38 PM

ok i fixed my problem (not the filter problem)

my new question is... line replacing! say when i come across an empty record (a line with specific characters) i want to replace the entire line with something else? any input?

Kilo · Nov 27th, 2005, 8:52 PM

Quote:

Originally Posted by Kilo

ok i fixed my problem (not the filter problem)

my new question is... line replacing! say when i come across an empty record (a line with specific characters) i want to replace the entire line with something else? any input?

ADDITION EDIT:
i do not understand why i cannot store the len of a string into a integer var

(Toggle Plain Text)

    fNameInt1 = Len(Trim$(Right$(FilePath$, "\"))) 'PROBLEM
    fName1 = Mid$(FilePath$, fNameInt1, Len(FilePath$))

Kilo · Nov 28th, 2005, 12:57 AM

disregard this.. i give up! im writing this prog in a real language c++

ivan · Nov 28th, 2005, 3:42 AM

Are you talking to yourself? Very nice monolog!

Nov 27th, 2005, 7:38 PM	#2
Kilo Expert Programmer Join Date: Nov 2005 Location: In Pink Clam? Posts: 542 Rep Power: 0	ok i fixed my problem (not the filter problem) my new question is... line replacing! say when i come across an empty record (a line with specific characters) i want to replace the entire line with something else? any input? __________________ "When in Rome, Do as the Romans Do" "Beauty is in the eye of the BEER holder" "Save your breath your going to need it for your blow up doll later" SearchLores.org

Nov 28th, 2005, 12:57 AM	#4
Kilo Expert Programmer Join Date: Nov 2005 Location: In Pink Clam? Posts: 542 Rep Power: 0	disregard this.. i give up! im writing this prog in a real language c++ __________________ "When in Rome, Do as the Romans Do" "Beauty is in the eye of the BEER holder" "Save your breath your going to need it for your blow up doll later" SearchLores.org

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Nov 27th, 2005, 6:41 PM	#1
Kilo Expert Programmer Join Date: Nov 2005 Location: In Pink Clam? Posts: 542 Rep Power: 0	question about filename in common dialog for most likely a good reason it will not accept my FileName$ string when i want to open it? Wonder why? (Toggle Plain Text) Private Sub fileload_cmd_Click() Dim tmpData As String filepath_dia.ShowOpen 'open common dialog filepath_txt.Text = filepath_dia.FileName Open Trim$(FilePath$) For Input As #1 Do Line Input #1, tmpData$ If (Left$(tmpData, 6) = "\" \ ",\" \ ",") Then 'stats_lbl(1).Caption = "Empty Record" LineNum = LineNum + 1 msgbox_txt.Text = msgbox_txt.Text + "Line(" + LineNum + ")=empty record" Else LineNum = LineNum + 1 End If Loop Until EOF(1) Close #1 End Sub Private Sub fileload_cmd_Click() Dim tmpData As String filepath_dia.ShowOpen 'open common dialog filepath_txt.Text = filepath_dia.FileName Open Trim$(FilePath$) For Input As #1 Do Line Input #1, tmpData$ If (Left$(tmpData, 6) = "\" \ ",\" \ ",") Then 'stats_lbl(1).Caption = "Empty Record" LineNum = LineNum + 1 msgbox_txt.Text = msgbox_txt.Text + "Line(" + LineNum + ")=empty record" Else LineNum = LineNum + 1 End If Loop Until EOF(1) Close #1 End Sub btw haven't used vb in like 3-4 years.. also how can i alter the common dialog fiter settings.. for lets say .txt (Toggle Plain Text) commondialog1.filters=(.txt) //doesn't work commondialog1.filters=(.txt) //doesn't work [/code] __________________ "When in Rome, Do as the Romans Do" "Beauty is in the eye of the BEER* holder" "Save your breath your going to need it for your blow up doll later" SearchLores.org

Nov 28th, 2005, 3:42 AM	#5
ivan Professional Programmer Join Date: Sep 2005 Location: serbia & montenegro Posts: 482 Rep Power: 3	Are you talking to yourself? Very nice monolog!

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

question about filename in common dialog