|
You are right, you will have to rewrite this function a little bit.
Fortunately you wouldn't have to actually write byval statements for each different datatype, and you could still manage with a single function by using the Object data type. This type accepts pretty much anything and can return anything.
In other words something like this:
Private Function OverTheMax(ByVal o As Object) As Object
However you would indeed have to write conversions in the function for each conversion necessary.
Michael Schäuble wrote: I'm not sure if the rewards of 'nicer looks' is worth the cost?
That question only you can answer. In your original post, you only said you wanted to display the values in a ListBox. In that case converting everything to strings before you put it there sounds like the best way to me. If you also want to do calculations on these values or manipulate the file, or something like that, you would have to adapt this function accept any data type as input and to output any data type, for example using Object or an array of type Object.
My advice is free, and you may get what you paid for.
|
|
|
|
|
Using object types sounds like an interesting option...
There's a lot to explore, indeed.
Thank you for the inspiration and patience,
and have a nice day!
Regards
Michael
|
|
|
|
|
Coming at you...
But seriously, the problem is that (at least) VB handles only the DateTime type and does not have a separate Time type. As your value appears to be only a time stamp, you will have to first add a (dummy) date part to the value and then extract the time part from the DateTime value, which seems a bit much.
One way (not saying that it is the best way) would be to interpret it as a fixed length string. If the HEX editor reads 06-00-42-11, then you can supposedly retrieve that value from the file "as is".
Next a simple function to replace all -'s with :'s, and Bob's your uncle.
At the same time, assuming that the values are int32 and therefore letting VB convert them to that type, might actually cause some of these funny return values you spoke about.
The other alternative would be to search Google or ask here on the forum about conversion of bytes to other data types (between you and me, not everybody here can (or is willing to) deduct the basic question, when you surround it with too much context). Because, to be honest, I have very little (read no) experience with bytes and DWORDs, etc.
Good luck,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Thanks for the tip. I'll try to post it in a shorter way and hope someone answers without asking for the context  then...
Have a nice day!
|
|
|
|
|
Hello everybody,
this question sounds simple, yet I couldn't find a better performing way to count the files in folders / subfolders than to make a (countable) string collection with GetFiles(Path, [..etc.]), which is obviously generating an huge list for every folder / subfolder unnecessarily.
Does anyone here have a better idea and can inspire me? I'm new to VB 2008 and need a little guidance.
Thank you,
Michael
|
|
|
|
|
Use the following code for counting number of files in a folder...
dim fol as string="Your folder name"
for each count as integer in My.Computer.FileSystem.GetFiles(fol)
count+=1
next
Now count will have total number of files in the folder fol.
Gagan
|
|
|
|
|
Thank you Gagan, but maybe I haven't expressed my question well.
The code you suggest is exactly the code I'm using 
Looking at the performance side of the GetFiles method, a programmer in another forum here looked at my code and wrote "That will create a list of strings that you just throw away, as you only use the size of the list. You should implement a method that loops the folders and counts the files, so that you don't create that huge list just to throw away."
Unfortunately he didn't let me know what "implement a method..." would mean - no further answer came, and more insecurity stayed  That's why I reduced my question to that point only, in order to find someone else willing to tell me which other methods would exist for the purpose.
I appreciate your will to support me,
have a nice day!
|
|
|
|
|
That will result in a number twice the actual number of files in the folder.
You really have no choice but to use GetFiles since there are no other methods of getting/counting the number of files in a folder.
|
|
|
|
|
Thank you, Dave, for clearing that up!
Meanwhile, I think I found out the difference from your suggestions to my code - and that could have been what the other guy had meant. In my code I didn't define "count" as integer but with (varname changed to "count"):
Dim count As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
I'm going to change that and have a look at performance again 
Thanks a lot to both of you!
Michael
|
|
|
|
|
|
Could someone tell me the name of the "this" pointer in Visual Basic?
Sorry to post such a beginner question, but do you know how hard it is to do a search on the word "this?" ;o)
|
|
|
|
|
|
Use the Me keyword.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
I have an app I'm working in which I need to update GUID references based on directory/version. Currently, I can get the current GUID for a dll using TLBINF32. In order to get the GUID, the location of the .DLL must be specified.
Is it possible to determine the GUID based on name only (without specifying the file path)? Something like: GetGuidINFO("somefilename.dll") in which the registry would return the appropriate Guid?
This would be ideal since the location of the .dlls could vary on a system to system basis.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
|
|
|
|
|
Any ideas on this?
Any suggestions, ideas, or 'constructive criticism' are always welcome.
|
|
|
|
|
Show some patience. We get to question on OUR time, as volunteers, not on yours. Personally, I've been in meetings all day, so this is the first I'm seeing this.
No, it's not possible to do that, unless the .DLL is in the CurrentDirectory. The problem with CurrentDirectory, though, is that you cannot depend on it to be pointing to any particular directory at any time. It can change, with or without, manipulation from your code.
But, building fully qualified paths to files is also best practice.
|
|
|
|
|
Dave Kreskowiak wrote: Show some patience. We get to question on OUR time, as volunteers, not on yours. Personally, I've been in meetings all day, so this is the first I'm seeing this.
No, it's not possible to do that, unless the .DLL is in the CurrentDirectory. The problem with CurrentDirectory, though, is that you cannot depend on it to be pointing to any particular directory at any time. It can change, with or without, manipulation from your code.
Sorry Dave, didn't mean to come off as impatient. Was hoping I was asking the question in a clear way.
Roger on CurrentDirectory and fully qualified paths.
Thanks!
Any suggestions, ideas, or 'constructive criticism' are always welcome.
|
|
|
|
|
Hi,
i create a text file in my code and i want to print the now. origianl file looks like
/********* File Starts Here ***************************
9/22/2008
Name of the customer and details
10010
/********* File Ends Here ***************************
But when i print this file in my project using following code...
Dim pd As New PrintDocument
Dim ps As new PageSettings
ps.Landscape = False
ps.Margins.Top = 0.116
ps.Margins.Bottom = 0.116
ps.Margins.Left = 0.116
ps.Margins.Right = 0.116
ps.PaperSize = New System.Drawing.Printing.PaperSize("A4", 210, 297)
pd.DefaultPageSettings = ps
AddHandler pd.PrintPage, AddressOf pd_PrintPage
and using drawstring function of Graphics as ,
e.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _
yPos, New StringFormat)
the resulting printout looks like...
/********* File Starts Here ***************************
9/22/2008
Name of the customer and details
10010
/********* File Ends Here ***************************
problem is the first line gets overlapped with second one. i.e date is overlapping "Name of the customer and details" line. which is not actual case.
(so, whole formatting of file is getting lost when i m printing in project but manual file print works fine).
where i am missing something. or is it something to do with saize of paper?
|
|
|
|
|
Sorry folks....
Originas file is like
/********* File Starts Here ***************************
____________________________________________________9/22/2008
_______________Name of the customer and details
________________________________________________________10010
/********* File Ends Here ***************************
and print file format is
/********* File Starts Here ***************************
_____________________________________9/22/2008
_______________Name of the customer and details
__________________________________________10010
/********* File Ends Here ***************************
|
|
|
|
|
I am still not understanding the exact error you are having. In the initial statement you speak of overlapping line segments, and then in the new post, the only problem i see is a smaller amount of underscores for the date and the other number (no overlapping lines). it could just be that the forum is not formatting it the way you are explaining it, but could you still clarify.
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my Blog
|
|
|
|
|
Right thomas..
forum is not able to format the space at starting of line. so i have replaced space with underscore.
so, consider underscores as spaces then u can see the diffrence between original file and printed version. the number of spaces in print is less than that of original.
here note that, when i print file in notepad directly its giving proper print. but same file when i print through application, its minimizing the number of spaces that makes me beleive that its formatting or page setting issue in application.
Any Help ?
|
|
|
|
|
I ressolved the issue.....
For anyone who are intrested...
When u try to print the file in vb.net with preceding space characters, then
in print u dont get same number of spaces(actually number of spaces are same but width of total space gets reduced)
To overcome this problem, u have to use font like "Courier New" which having same width for all characters. as ,
Private printFont As Font
printFont = New Font("Courier New", 10)
e.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _
yPos, sFormat)
The scenario is when positioning of printed string on paper does matter a lot..
Cheers !
|
|
|
|
|
That's because when you printed the test, you used a proportial spaced font. When you used Courier New, you started using a fixed space font. Proportial means that each character uses just the amount of space it needs to get rendered. For example, a 'W' needs more width than a '.' to render. In a fixed space font, every character uses the same amount of space when rendered, regardless of how much it actually needs.
|
|
|
|
|
yes dave.
but can i use proportial spaced font and still make them cover fixed sized width. may be by adjusting the width of whole string?
any idea?
|
|
|
|
|
kedarrkulkarni wrote: can i use proportial spaced font and still make them cover fixed sized width.
Not easily. You'd have to draw the text, line-by-line and word-by-word, yourself, adjusting the space between words to make the text justified between the margins.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
, so I used 
