Visual Basic

7-Oct-09 3:55

Hi all,
I'm working on an application, in which the first step is to append all files in a folder selected through FolderDialogBox.
It works perfevtly.
There is a change in the requirement now.
The change is, all .txt files within the selected folder and .txt files in the subfolders of the selected folder has to be appended.

Any help on this requirement witll be helpful.

Is there any posibility to upload my code in text file format?
If so please let me know, so that I can upload the code.
Its not possible to paste the code here, cos it has more number of line.

Thanks in advance.

modified on Thursday, October 8, 2009 6:40 AM

EliottA7-Oct-09 4:04

7-Oct-09 4:04

Don't bother uploading all your code, chances are no one will audit it for you.

As for your requirements, I'd advise you to take a look at recursion for navigating through a hierarchy of folders, you can use a List or another type of Collection to keep track of .txts before calling some logic to append them all to a new file.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

vijay24827-Oct-09 5:16

7-Oct-09 5:16

Can you suggest any article for recursion?
I searched but could'nt get a good one.

dan!sh 7-Oct-09 5:22

dan!sh

7-Oct-09 5:22

You can make use of GetDirectories method to get all the directories under the top folder and then do as needed. One of its overload takes in SearchOption as parameter, use that one.

It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD

vijay24827-Oct-09 5:24

7-Oct-09 5:24

Thanks for your suggestion.
Will checkout.

vijay24828-Oct-09 0:40

Need Help Read Text File Line by Line

8-Oct-09 0:40

I used SearchOption.AllDirectories in my code and got my requirement done.

Dim theFiles As FileInfo() = theDir.GetFiles("*.txt", SearchOption.AllDirectories)

Thaks to all those who replied to my post.

Hawkster187-Oct-09 2:28

7-Oct-09 2:28

hey everybody,

I've posted a question here before but didn't get much help.
I have a problem!

'//*/Macro:911;Tests:#ADSLCustomerClass;Generates:146,147
BeginMacro911 ADSL 04 Fehlende Angaben, remplace Macro-326 cye 07.07.2003
Case_#ADSLCustomerClass
"002" : Mtext 146
"2" : Mtext 146
Else: MText 147
EndMacro911

I was able o parse the first line with a friend and add 911 ADSLCustomerClass 146,147 successfully to my DB in Access

My question is how do I read the other lines?
the first line was read with strBuffer

Luc Pattyn7-Oct-09 3:23

Luc Pattyn

7-Oct-09 3:23

Hawkster18 wrote:
I have a problem!

Yes you do. You were given good advice, and instead of buying and studying a book on VB.NET, you have chosen to waste an entire week on reading the first line "with strBuffer" whatever that may be.

FWIW: reading a second line is exactly as hard as reading the first line.

Hmmm | :|

Luc Pattyn

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

Local announcement (Antwerp region): Lange Wapper? Neen!

Hawkster187-Oct-09 3:31

7-Oct-09 3:31

please don't get me wrong, but right now I have hardly any time to read a book...i come home from work...i'm home for 5 minute and i have basketball practise. I have 2 basketball games every weekend, sometimes even during the week. That's why I can't buy a book.

Look if you could just help me that would be great...why can't you guys help me?

I'm just asking a question...if you could explain it to me.

EliottA7-Oct-09 3:36

7-Oct-09 3:36

We can't help you because you're not helping yourselves.

Our lives don't revolve around doing other peoples work, some of us donate free time to help others with specific problems but we generally help those who help themselves. We have time constraints also, family, sports, a job, whatever. We still find time to research for specific problems, as a general rule most of us will not do your work for you.

Get a book. Read it between basketball practice and school, whenever. Everyone has time to learn, not everyone wants to..

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Hawkster187-Oct-09 3:46

7-Oct-09 3:46

Did I ever say that you would be doing the work for me?

I'm only asking for help.

let me show you quick ok

This Part:
'//*/Macro:911;Tests:#ADSLCustomerClass;Generates:146,147

Open strFile For Input As #intFile

Do While EOF(intFile) = False
Line Input #intFile, strBuffer
strID = Left(strBuffer, 5)

Select Case strID
Case "'//*/"
FirstArray = Split(strBuffer, ";")
MacNumber = Split(FirstArray(0), ":")

'~~> Macronumber
fldMacroNumber = MacNumber(1)

SecondArray = Split(FirstArray(1), "#")

'~~> Tests
fldTests = SecondArray(1)

LastArray = Split(FirstArray(2), ":")

'~~> Generates
fldGenerates = LastArray(1)

'~~> Add New Record
rs.AddNew

'~~> Get Field Values
rs!Macronumber = fldMacroNumber
rs!Tests = fldTests
rs!Generates = fldGenerates

'~~> Update Records
rs.Update
Case Else

End Select
Loop

with this code I can successfully transfer 911, ASDLCustomerClass and 146,147 to the specific databasetablefields

this is the full file which I have to read and transfer to the right databasetablefields:
'//*/Macro:911;Tests:#ADSLCustomerClass;Generates:146,147
BeginMacro911 ADSL 04 Fehlende Angaben, remplace Macro-326 cye 07.07.2003
Case_#ADSLCustomerClass
"002" : Mtext 146
"2" : Mtext 146
Else: MText 147
EndMacro911

I just need to know how to read the other lines and insert the right Information in the right databasetablefield.

I'm not asking for the correct code, I'm asking for help...like for example:

ok here's a small help or tip for you to start

code code code

nothing else!

EliottA7-Oct-09 3:54

7-Oct-09 3:54

Hawkster18 wrote:
I'm not asking for the correct code, I'm asking for help...like for example:

ok here's a small help or tip for you to start

code code code

nothing else!

That's called 'doing your work while you sit on your ass and claim it as your own', which I do not do for people who don't help themselves. Your tone is rude as is your entire message.

I would rethink your attitude before replying, or posting again.

Again, help yourself. Go out, buy a book and work through it to have a better understanding of what it is you are trying to accomplish. When posting code, please use the <pre></pre> tags to make your code more readable.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Hawkster187-Oct-09 3:59

7-Oct-09 3:59

OK,

can you give me an example of how I should post a question so that I can get an answer?

EliottA7-Oct-09 4:02

7-Oct-09 4:02

Sure, view this[^] post, it will tell you how to follow simple rules to help facilitate an answer quickly.

take notes of points

2. Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
4. Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
7. If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode HTML tags when pasting" checkbox before pasting anything inside the PRE block, and make sure "Ignore HTML tags in this message" check box is unchecked.
8. Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
10. Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
11. If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.

Again I highlight point 2, which pretty much sums up what you did wrong.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Hawkster187-Oct-09 4:09

7-Oct-09 4:09

Hey leck du mir mal am arsch...ihr sind au behinderti lüüt!
Das isch de blödscht Forum wos git...dammi nomal...üch chamer echt ned bruche
schene

EliottA7-Oct-09 4:17

7-Oct-09 4:17

That was very rude and extremely offensive.

For others to see this kids attitude, please go to Google translate and have google auto-detect the language.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Hawkster187-Oct-09 4:29

7-Oct-09 4:29

Mir doch scheisse egal...ich melde mich nümme bi üch...es wunder das du das überhaupt hesch chönne übersetze da das schwiizerdütsch isch!

Easy wenn ihr mir ned emal es bizeli helfe wenn sege ich halt eifach

hoffentlich wird die siite gsperrt oder so en scheiss
schene ihr peders

Tom Deketelaere7-Oct-09 4:30

Tom Deketelaere

7-Oct-09 4:30

Google didn't translate much Frown | :(

But since it's German I got the core of the message. And if I'm right it is very rude and offensive.

Hawkster187-Oct-09 4:34

7-Oct-09 4:34

because it's not excatly german!

Eddy Vluggen7-Oct-09 23:16

Eddy Vluggen

7-Oct-09 23:16

Here you are, in the retro VB6-language.

Private Sub Command1_Click()
    Dim fileNum As Integer
    Dim newLine As String
    
    fileNum = FreeFile
    Open "C:\ihp.txt" For Input As fileNum
    While Not EOF(fileNum)
        Line Input #fileNum, newLine
        Text1.Text = Text1.Text & newLine
    Wend
    Close fileNum
End Sub

Gern Geschehen Smile | :)

I are Troll Smile | :)