|
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
|
|
|
|
|
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.
|
|
|
|
|
Can you suggest any article for recursion?
I searched but could'nt get a good one.
|
|
|
|
|
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
|
|
|
|
|
Thanks for your suggestion.
Will checkout.
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
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.
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!
|
|
|
|
|
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.
|
|
|
|
|
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..
|
|
|
|
|
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!
|
|
|
|
|
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.
|
|
|
|
|
OK,
can you give me an example of how I should post a question so that I can get an answer?
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
Google didn't translate much 
But since it's German I got the core of the message. And if I'm right it is very rude and offensive.
|
|
|
|
|
because it's not excatly german!
|
|
|
|
|
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 SubGern Geschehen 
I are Troll
|
|
|
|
|
Hawkster18 wrote: Look if you could just help me that would be great...why can't you guys help me?
What Elliot said. Examples are here[^].
I are Troll
|
|
|
|
|
Hawkster18 wrote: why can't you guys help me?
You were already given proper answers. The problem is that you don't have the requisite knowledge to understand them and implement them in your code. No, noone is going to write your code for you if that's the "help" you're after.
|
|
|
|
|
Great. You have shown some code now.
Unfortunately it is VB, not even VB.NET
VB is ancient language now, forget it. Don't buy a book on it, it is worthless.
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!
|
|
|
|
|
since it's ancient and I should buy a book eventhough it's worthless now, what the heck should I do now?
I've been surfing online for like 1-2 weeks now and haven't found good information tht could help.
|
|
|
|
|
Hawkster18 wrote: what the heck should I do now?
1) Grow up.
2) You can still buy VB books although it will be wasted money for the future. You might be able to glean enough from a VB.Net book if you actually have more intelligence than you have demonstrated in this thread.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
