|
"Handle": I mean to make the click event of the button "loggin", for example!
Ok, thanx a lot for the advise!
|
|
|
|
|
How to extract file from e-mail automatically? and how to read the file? tq
SaM
|
|
|
|
|
You're going to have to explain how your getting this email first. Are you using Outlook, or some other mail package to do it? Did you implement your own STMP/POP3 clients? Did you use a 3rd party component to get the email?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Thank you for your attention. Actually I want to use Yahoo! Mail or Outlook as a platform for extracting the file. Once I receive the e-mail, the program will read and extract the file automatically. Then, the file will be used for updating database(MapObjects+ArcView). What should I begin with?
SaM
|
|
|
|
|
First, you shouldn't be relying on Yahoo Mail, or any other application to do this for you. Yahoo Mail's user interface can, and will, change from time to time, rendering your code absolutely useless.
There are major issues with controlling the user interface of another application. I know, every newbie thinks it should be a piece of cake to do, but they simply do not understand how a UI works and therefore can't understand why it's so difficult to do. You simply do NOT do it if you want to write rock solid code.
If you're using VB.NET 2004, you can use the System.Web.Mail namespace to create your own email client, complete with the ability to unpack attachments. If your using 2005, then the System.Net.Mail[^] namespace has everything you need to download mail from an SMTP server and unpack attachments.
I HIGHLY recommend using the .NET Framework 2.0 to do this. It's email handling support is FAR better than the support offered by the .NET Framework 1.x.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
oh i see...ermm, do you have any script sample on how to use system.Net.Mail?
SaM
|
|
|
|
|
Hi..
Anyone could help me out in writing a vb.net windows application, which converts the given numbers to appropriate words(Ex.if 123 is entered,the output should be ONE HUNDRED AND TWENTY THREE)
Vijay Mesa
|
|
|
|
|
|
That sounds like a homework assignment to me... If it is, assume your lecturer is also reading these boards.
|
|
|
|
|
You must construct an algorithm to do this routine!
It will starts from the end of the integer..and reads one by one the numbers!
You must call two functions. First returns the number string (ex. 1 one), and second the "position" (if this number is 3rd from the end this is hundred).
It's too easy..
Kostas
|
|
|
|
|
Hi,
use this function...
Public Function Wording(ByVal Digits As Int16) As String
Dim Inword() As String = {"", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen", "Twenty"}
Dim Tenth() As String = {"", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety"}
Dim MainWord As String
If Digits <= 20 Then
MainWord = Inword(Digits)
ElseIf Digits < 100 Then
MainWord = Tenth(Mid(Digits, 1, 1)) & " " & Inword(Mid(Digits, 2, 1))
End If
Wording = Trim(MainWord)
End Function
Public Function Convert(ByVal Indigit As String) As String
On Error GoTo err1
Dim word(8), Outword As String
Dim length, num2, i As Int16
Dim frac As Single
Dim flg As Boolean
frac = Val(Indigit) - Int(Val(Indigit))
If frac <> 0 Then
num2 = Mid(Str(frac), 3, 2)
If num2 <= 9 Then num2 = num2 * 10
If frac < 0.1 Then num2 = Mid(Str(frac), 3, 2)
word(0) = Wording(num2)
End If
Indigit = Int(Val(Indigit))
If Val(Indigit) <> 0 Then flg = True
length = Len(Indigit)
num2 = Val(Mid(Indigit, length, 1))
word(1) = Wording(num2)
num2 = Val(Mid(Indigit, length - 1, 2))
word(1) = Wording(num2)
num2 = Val(Mid(Indigit, length - 2, 1))
word(2) = Wording(num2)
num2 = Val(Mid(Indigit, length - 3, 1))
word(3) = Wording(num2)
num2 = Val(Mid(Indigit, length - 4, 2))
word(3) = Wording(num2)
num2 = Val(Mid(Indigit, length - 5, 1))
word(4) = Wording(num2)
num2 = Val(Mid(Indigit, length - 6, 2))
word(4) = Wording(num2)
num2 = Val(Mid(Indigit, length - 7, 1))
word(5) = Wording(num2)
num2 = Val(Mid(Indigit, length - 8, 2))
word(5) = Wording(num2)
err1:
For i = 5 To 0 Step -1
If word(i) <> "" Then
Select Case i
Case 0
If flg = False Then Outword = Outword + word(i) + " Paise" Else Outword = Outword + " And " + word(i) + " Paise"
Case 1
Outword = Outword + word(i)
Case 2
Outword = Outword + word(i) + " Hundred "
Case 3
Outword = Outword + word(i) + " Thousand "
Case 4
Outword = Outword + word(i) + " Lac "
Case 5
Outword = Outword + word(i) + " Crore "
End Select
End If
Next
If Outword = "" Then Outword = "Zero"
Convert = Outword
End Function
Public Function NumToWord(ByVal StrDigits As String) As String
Dim l, Pos As Int16
Dim a, b As String
Pos = InStr(StrDigits, ".")
If Pos = 0 Then a = StrDigits Else a = Mid(StrDigits, 1, Pos - 1)
l = Len(a)
If l > 7 Then
a = Mid(a, 1, l - 7)
b = Mid((StrDigits), l - 6)
NumToWord = Convert(a) & " Crore " & Convert(b)
Else
NumToWord = Convert(StrDigits)
End If
End Function
Thanks & Regards...
Amit
|
|
|
|
|
Your example is about twice the size it needs to be, but CONGRATULATIONS!!
You just did this guy's homework for him!! His prize?? A FAILING grade because the prof WILL know he didn't write the code! I hope you're happy...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi..
Anyone could help me out in writing a vb.net windows application, which converts the given numbers to appropriate words(Ex.if 123 is entered,the output should be ONE HUNDRED AND TWENTY THREE)
Vijay Mesa
|
|
|
|
|
Ahhh, the ubiquitous homework assignment. Just Google for "convert number to words" and you'll see thousands of examples.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I HAVE COMPLETED MY VB.NET WIN APPLICATION(consists of crystal report nd ado.net).
I HAVE ALSO GOT AN '.exe' FILE FOR IT.
NOW I NEED TO RUN THIS EXE AT ANOTHER PC
PLS SUGGEST THE REQUIREMENTS TO INSTALL IN THE OTHER PC
IS JUST DOTNET FRAME WORK SUFFICIENT
thanks in adv for ur reply
ramana mohan
|
|
|
|
|
Please don't SHOUT. It's annoying and rude.
From MSDN
In order for a .NET Framework application to run on a given computer, it must have the .NET Framework installed. Any .NET Framework application that uses ADO.NET to connect to databases requires MDAC 2.7. Many computers already have these components installed; however, to ensure an application will run, these components should be redistributed with your application.
dotnetfx.exe[^] (for .NET 1.1)
dotnetfx.exe[^] (for .NET 2.0)
MDAC 2.8[^]
|
|
|
|
|
ramana mohan wrote: PLS SUGGEST THE REQUIREMENTS TO INSTALL IN THE OTHER PC
Create a setup and deployment package.
ramana mohan wrote: IS JUST DOTNET FRAME WORK SUFFICIENT
You need to have crystal report runtime libraries as well.
|
|
|
|
|
Still having same problem with formatting numbers in database. I am using the following code:
This is the function that I am calling
Public Function FormatPartNumber(ByVal formatstyle As String, ByVal partnumber As String) As String
FormatPartNumber = String.Format(formatstyle, partnumber)
End Function
Code to format number:
If Trim(row("formatcodeforitemnumber").ToString()) = "0" Or Trim(row("formatcodeforitemnumber").ToString()) = "" Then
FormattedPartnumber = FormatPartNumber("XXXXX-XXX", row("itemnumber").ToString())
ElseIf Trim(row("formatcodeforitemnumber").ToString()) = "1" Then
FormattedPartnumber = FormatPartNumber("XXXXX-XXX-XX", row("itemnumber").ToString())
ElseIf Trim(row("formatcodeforitemnumber").ToString()) = "2" Then
FormattedPartnumber = FormatPartNumber("XXXXXX-XXXX", row("itemnumber").ToString())
The number are not formatting at all. Any ideas!
jds1207
|
|
|
|
|
The part number is already a string, so it got formatted when you convert it to a string. You have to get it as a number to be able to format it into a string.
---
b { font-weight: normal; }
|
|
|
|
|
Could you give me an example?
|
|
|
|
|
jds1207 wrote: Could you give me an example?
An example of what?
How do you store the value in the database? Do you store it as a number? Otherwise you have to first convert it to a number to be able to convert it to a string again.
---
b { font-weight: normal; }
|
|
|
|
|
I don't think X works with numbers. It's 0
FormattedPartnumber = FormatPartNumber("00000-000", clng(row("itemnumber"))
Public Function FormatPartNumber(ByVal formatstyle As String, ByVal partnumber As long) As String
return partnumber.tostring(formatstyle)
End Function
|
|
|
|
|
I got the following error when trying to run project which was for this code
return partnumber.tostring(formatstyle)
Error message:
Unable to cast object of type 'System.String' to type 'System.IFormatProvider'. W
|
|
|
|
|
did you notice that I changed the argument type to LONG in the procedure definition?
I just tried the code and it worked fine. FormattedPartNumber = '03833-733'
Dim FormattedPartnumber As String = FormatPartNumber("00000-000", CLng("3833733"))
Public Function FormatPartNumber(ByVal formatstyle As String, ByVal partnumber As Long) As String
Return partnumber.tostring(formatstyle)
End Function
|
|
|
|
|
The numbers in the database are all showing as Xs now. Do you have any ideas?
|
|
|
|
|