|
that is a dangerous idea; all files with sizes less than 1024B will show as 0KB, giving you the impression they are empty. Much better is rounding up like this:
sizeInKiloBytes=(sizeInBytes+1023)/1024;
which only shows zero when it really is zero.
|
|
|
|
|
I found to format it, but I'm still getting errors.. I will post update this when I work it out.
|
|
|
|
|
I was being overly simplistic to try and find out what exactly the problem is........i would hope that anybody who is working in IT knows the relationships between bits bytes k, m, g, t.....and on and on.
but yes agree with your point, i.e. never show zero unless it is actually zero.
|
|
|
|
|
daveauld wrote: i would hope that anybody who is working in IT knows the relationships between bits bytes k, m, g, t.....and on and on.
Never assume this. I once heard one of our IT help desk reps ask a colleague "What exactly is hexadecimal?".
It's time for a new signature.
|
|
|
|
|
I worked with a woman who was supposedly in IT for at least 10 years, who was previously an Oracle instructor, and asked me how to convert K to MB. Scary.
Scott
|
|
|
|
|
Richard MacCutchan wrote: once heard one of our IT help desk reps ask a colleague "What exactly is hexadecimal?"
"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 would like to know if there is function in built that converts filesizes automatically.
For instance if there is a file that is 1234 bytes, it will be represented as 1.23 KB, or if we have a file that is 1234567, it will be represented as 1.23 MB. Or anything along these lines.
|
|
|
|
|
No, there is not.
|
|
|
|
|
|
Thank you all for your input. I have finally written a function to do exactly what I need to be done. Please look at the code below and benefit from it if you wish:
Public Function BytesFormatting(ByVal Bytes As Integer) As String
Dim FormattedFileSize As Double
If Bytes < 1024 Then
''code to format fsize as KB
Dim dblFormatted As Double
dblFormatted = Bytes
FormattedFileSize = Format(dblFormatted, "###,###.00") + "KB"
ElseIf (Bytes > 1024 And Bytes < 1048576) Then
''code to format fsize as KB
Dim dblFormatted As Double
dblFormatted = (Bytes + 1023) / 1024
FormattedFileSize = Format(dblFormatted, "###,###.00") + "KB"
ElseIf Bytes > 1048576 Then
''code to format fsize as MB
Dim dblFormatted As Double
dblFormatted = (Bytes / 1024) / 1024
FormattedFileSize = Format(dblFormatted, "###,###,###.00") + "MB"
End If
Return FormattedFileSize.ToString
End Function
|
|
|
|
|
Hate to be the bearer of bad news but you have a typo in your first if chunk.
Dayekh wrote: If Bytes < 1024 Then
''code to format fsize as KB
Dim dblFormatted As Double
dblFormatted = Bytes
FormattedFileSize = Format(dblFormatted, "###,###.00") + "KB"
Surely you mean bytes here rather than kilobytes, eg.
If Bytes < 1024 Then
Dim dblFormatted As Double
dblFormatted = Bytes
FormattedFileSize = Format(dblFormatted, "###,###.00") + "B"
|
|
|
|
|
Not at all, that was intentional. However I should have been clearer. The reason that code block refers to formatting in KiloBytes is because I would like any file that is less than 1024 to be displayed as KB as well. For example a file that is 643 Bytes big will appear as 0.64KB
Cheers.
|
|
|
|
|
What if file is exactly 1024 or 1048576 bytes?
Not likely but not impossible, I can generate one of either size with ease. 
Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis
The only valid measurement of code quality: WTFs/minute.
|
|
|
|
|
right.
and doesn't Dim FormattedFileSize As Double deserve some attention too?
|
|
|
|
|
Yup. But I guess he has Option Strict Off either intentionally or by default. That allows it to compile.
But there's even worse when you look at it more closely e.g. a file of 1023 bytes returns 1,023.00KB. 
He did say it was working so I suppose he tested it. 
Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis
The only valid measurement of code quality: WTFs/minute.
|
|
|
|
|
I have finally written a function to do exactly what I need to be done. Please look at the code below and benefit from it if you wish
I think he meant: no need for me to test it, just publish and wait a while.
Not sure it will still do what "needs to be done" when we are through...
|
|
|
|
|
|
As a little VB exercise, here an alternative, spanning a larger range of values; the result is slightly different, notation is float or integer as appropriate:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pow As Long = 1
For i = 0 To 63
Dim fraction As Long = pow \ 32
If fraction < 1 Then fraction = 1
test(-pow)
test(pow - fraction)
test(pow)
test(pow + fraction)
If pow >= &H4000000000000000 Then Exit For
pow = 2 * pow
Next
End Sub
Public Sub test(ByVal value As Long)
Dim s As String
s = FormattedFileSize(value)
Console.WriteLine(value.ToString().PadLeft(20) & " = " & value.ToString("X16") & " = " & s & "B")
End Sub
Public Function FormattedFileSize(ByVal sizeInBytes As Long) As String
Dim negative As Boolean = False
Dim result As String
Dim value As Long = sizeInBytes
Dim remainder As Long = 0
Dim suffixIndex As Integer
If value < 0 Then
negative = True
value = -value
End If
For suffixIndex = 0 To 20
If value <= 1023 Then Exit For
remainder = value Mod 1024
value = value \ 1024
Next
If remainder > 0 Then
Dim d As Double = value + remainder / 1024
result = d.ToString("F3")
Else
result = value.ToString()
End If
If suffixIndex > 0 Then result = result & " KMGTPEZY"(suffixIndex)
If negative Then result = "-" & result
Return result
End Function
Homework: find and fix the value(s) that still fail.
|
|
|
|
|
I knew it would error for extremely large sizes and failed on negatives so here's a fix. (Not sure the negatives a right.)
Public Function FormattedFileSize(ByVal sizeInBytes As Long) As String
Dim suffix() As String = New String() {"Oops", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB", "XX"}
Dim units As Double = Math.Abs(sizeInBytes) 'Fudge to deal with negatives. Should it error with neg file size?
Dim index As Integer = 0
Do
units = units / 1024.0
index += 1
Loop While units >= 1024.0
Return Format(units, "###,###,##0.000") + suffix(index)
End Function
I've not done homework for years.
Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis
The only valid measurement of code quality: WTFs/minute.
|
|
|
|
|
Thank you all for your input! I certainly was happy that this issue had a lot of interest.
"i would hope that anybody who is working in IT knows the relationships between bits bytes k, m, g, t.....and on and on." -- knowing the relationship between bytes, KB, MB, etc.. was irrelevant as I was asking if there was a class/method that automatically did the conversions in VB.Net. And yes, I know the relationship between them :P
"I think he meant: no need for me to test it, just publish and wait a while." -- Yea I'm sure all programmers are perfect testers of THEIR own code. I did some testing, but it obviously wasn't good enough. I suppose that's what learning is.. no?
"What if file is exactly 1024 or 1048576 bytes?" -- Good point! I was swamped with work that I overlooked that fault. Thank you.
"But there's even worse when you look at it more closely e.g. a file of 1023 bytes returns 1,023.00KB." -- Another good point. I need to address all eventualities more closely!
"I decide to benefit and wrote something that does work." -- Thank you. I will work through that code.
Thanks again all! This made my day.
|
|
|
|
|
Hi,
I'm new to the forums so apologies if I've posted this to the wrong section. Also pretty new to vb so if some of my terminology is off then please let me know.
I'm trying to develop an asp page that will take user submitted data and post it to a web service. The web service is hosted (and developed by) a third party.
I've created a reference to the web service in my project, and written the code to send the required data to the web service, but every time I send data I get a response back from the web service to say it is duplicate data and won't be processed. Having done what debugging my limited knowledge allows, it looks as though both the public property and private field for each class of the web service is being sent, one after the other, which is causing the duplicate data message.
I'm guessing I haven't correctly defined/coded something so can someone suggest where I may be going wrong please. Below is the code I'm using but let me know you need anything else.
Thanks
Rob.
Protected Sub button1_click() Handles Button1.Click
Dim strResult As String
Dim strResultErrorCode As String
Dim strResultErrorId As String
Dim strResultErrorMessage As String
Dim strResultMessage As String
Dim WebService As VWTestdrive.TestdriveService = New VWTestdrive.TestdriveService()
Dim Request As New VWTestdrive.Request
Dim Result As New VWTestdrive.Result
Dim Customer As New VWTestdrive.Customer
Dim Address As New VWTestdrive.Address
Dim Phones() As VWTestdrive.Phone = New VWTestdrive.Phone() _
{New VWTestdrive.Phone, New VWTestdrive.Phone, New VWTestdrive.Phone, New VWTestdrive.Phone}
Dim HomePhone As New VWTestdrive.Phone
Dim MobilePhone As New VWTestdrive.Phone
Dim WorkPhone As New VWTestdrive.Phone
Dim FaxPhone As New VWTestdrive.Phone
Dim UnkPhone As New VWTestdrive.Phone
Dim NextPurchase As New VWTestdrive.NextPurchase
Dim Fleet As New VWTestdrive.Fleet
Dim DataProtection As New VWTestdrive.DataProtection
Dim Channels() As VWTestdrive.ContactChannel = New VWTestdrive.ContactChannel() _
{New VWTestdrive.ContactChannel, New VWTestdrive.ContactChannel, New VWTestdrive.ContactChannel, New VWTestdrive.ContactChannel}
Dim ChMail As New VWTestdrive.ContactChannel
Dim ChEmail As New VWTestdrive.ContactChannel
Dim ChSMS As New VWTestdrive.ContactChannel
Dim ChPhone As New VWTestdrive.ContactChannel
Dim CurrentVehicle As New VWTestdrive.CurrentVehicle
Dim FutureVehicle As New VWTestdrive.FutureVehicle
Dim Loyalty As New VWTestdrive.BrandLoyalty
Dim VehicleRequests() As VWTestdrive.VehicleRequest = New VWTestdrive.VehicleRequest() _
{New VWTestdrive.VehicleRequest, New VWTestdrive.VehicleRequest, New VWTestdrive.VehicleRequest, New VWTestdrive.VehicleRequest}
Dim Campaign As New VWTestdrive.Campaign
' get credentials
Dim Credentials As New NetworkCredential
Credentials = ReturnCredentials(3)
WebService.Credentials = Credentials
'Try
' set customer data
Customer.title = "Mr"
Customer.firstName = "Duplicate"
Customer.lastName = "Test"
Customer.email = "test.test@test.com"
' need to test that db field is populated before adding to request object
'HomePhone.type = VWTestdrive.PhoneType.Home
'HomePhone.Value = ""
MobilePhone.type = VWTestdrive.PhoneType.Mobile
MobilePhone.Value = "07123456789"
WorkPhone.type = VWTestdrive.PhoneType.Work
WorkPhone.Value = "01234567890"
'FaxPhone.type = VWTestdrive.PhoneType.Fax
'FaxPhone.Value = ""
'UnkPhone.type = VWTestdrive.PhoneType.Unspecified
'UnkPhone.Value = ""
' need to add a loop here dependent on the number of numbers populated
Phones(0).type = MobilePhone.type
Phones(0).Value = MobilePhone.Value
'Phones(0).preferred =
'Phones(0).preferredSpecified =
Phones(1).type = WorkPhone.type
Phones(1).Value = WorkPhone.Value
'Phones(1).preferred =
'Phones(1).preferredSpecified =
'Phones(2).type = HomePhone.type
'Phones(2).Value = HomePhone.Value
'Phones(2).preferred =
'Phones(2).preferredSpecified =
'Phones(3).type = FaxPhone.type
'Phones(3).Value = FaxPhone.Value
'Phones(3).preferred =
'Phones(3).preferredSpecified =
'Phones(3).type = UnkPhone.type
'Phones(3).Value = UnkPhone.Value
'Phones(3).preferred =
'Phones(3).preferredSpecified =
' set address data
Address.pafValidated = True
Address.pafValidatedSpecified = True
Address.type = VWTestdrive.AddressType.Residential
Address.typeSpecified = True
Address.houseNumber = "1"
Address.houseName = ""
Address.line1 = "Test Avenue"
Address.line2 = ""
Address.line3 = ""
Address.line4 = "LONDON" ' map to town
Address.line5 = "" ' map to county
Address.postcode = "AA1 1AA"
Customer.address = Address
Customer.phones = Phones
' need to test that db field is populated before adding to request object
ChMail.option = True
ChMail.type = VWTestdrive.ChannelType.Whitemail
ChEmail.option = True
ChEmail.type = VWTestdrive.ChannelType.Email
ChSMS.option = True
ChSMS.type = VWTestdrive.ChannelType.SMS
ChPhone.option = True
ChPhone.type = VWTestdrive.ChannelType.Phone
' need to add a loop here dependent on the number of fields populated
Channels(0).option = ChMail.option
Channels(0).type = ChMail.type
Channels(1).option = ChEmail.option
Channels(1).type = ChEmail.type
Channels(2).option = ChSMS.option
Channels(2).type = ChSMS.type
Channels(3).option = ChPhone.option
Channels(3).type = ChPhone.type
' next purchase
NextPurchase.date = "2009-08-25"
NextPurchase.dateSpecified = True
'NextPurchase.timeframeId =
Fleet.responsibility = False
Fleet.responsibilitySpecified = True
'Fleet.size = "0"
DataProtection.group = True
DataProtection.thirdParty = True
' need to get modelcode from lookup
CurrentVehicle.modelCode = "1J1" ' Golf
CurrentVehicle.registration = "AA11 AAA"
' add future vehicle here
Loyalty.previousOwner = True
Loyalty.previousOwnerSpecified = True
' need to add loop for populating all possible brochures
' will also need to split brochure array into separate elements
For i As Integer = 0 To 3
Dim Vehicle As New VWTestdrive.VehicleRequest
If i = 0 Then
Vehicle.derivativeCode = "VW0302"
Vehicle.type = VWTestdrive.VehicleRequestType.B
ElseIf i = 1 Then
Vehicle.derivativeCode = "VW0303"
Vehicle.type = VWTestdrive.VehicleRequestType.B
ElseIf i = 2 Then
Vehicle.derivativeCode = "VW0302"
Vehicle.type = VWTestdrive.VehicleRequestType.T
ElseIf i = 3 Then
Vehicle.derivativeCode = "VW0303"
Vehicle.type = VWTestdrive.VehicleRequestType.B
End If
VehicleRequests(i).derivativeCode = Vehicle.derivativeCode
VehicleRequests(i).type = Vehicle.type
Next
' campaign
Campaign.code = "UKVW-CE-VWINTERNET02"
Campaign.source = "60"
'Campaign.freePrizeDraws = ""
' set request data
' defaults
' customer
Request.customer = Customer
' info
Request.nextPurchase = NextPurchase
Request.fleet = Fleet
Request.dataProtection = DataProtection
' contact channels
Request.futureContactChannels = Channels
Request.currentVehicle = CurrentVehicle
Request.brandLoyalty = Loyalty
Request.vehicleRequests = VehicleRequests
' campaign
Request.campaign = Campaign
' evaluate response codes
Result.success = WebService.CallTestDrive(request:=Request).success
strResult = Result.success.ToString
UserMsgBox(strResult)
Result.errors = WebService.CallTestDrive(Request).errors
strResultErrorCode = Result.errors(0).errorCode.id.ToString
strResultErrorId = Result.errors(0).id.ToString
strResultErrorMessage = Result.errors(0).errorMessage.ToString
strResultMessage = "Id: " & strResultErrorId & vbCrLf & _
"Code: " & strResultErrorCode & vbCrLf & _
"Message: " & strResultErrorMessage & vbCrLf
UserMsgBox(strResultMessage)
'Catch ex As Exception
'End Try
End Sub
|
|
|
|
|
Hi
I think your best bet is to get hold of the 3rd party who developed the Web Service and get their support. I seriously doubt anyone here would be able to help with such a specific problem, nor do I think anyone will bother reading so much code to figure out what is going on. There are lots of people here who are more than willing to help you if you have a more general problem regarding VB.Net, or any other language, so please don't be discouraged if you don't receive many replies to this question.
|
|
|
|
|
Your best bet is contacting the people who wrote/own the web service. Either the data already exists in some form in the web services database, or you're supplying incorrect information in the objects.
|
|
|
|
|
Hello Everybody,
In VB6 the Function char(0) returns special character
but in VC++ it return blank.
Which reflect on the value of Software.
so please help me what is the solution.
Thanks
If you can think then I Can.
|
|
|
|
|
eg_Anubhava wrote: so please help me what is the solution.
The solution to what? Please try and explain what you are trying to achieve, and whether this is a VB or C++ question.
It's time for a new signature.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
