Visual Basic

Re: Convert into the Indian Rs formate [modified]

24-Dec-09 22:18

There are numerous Format functions available look up the docs, particularlay the formatcurrency method

Cheers,
dave

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

Dimitri Witkowski26-Dec-09 2:50

Dimitri Witkowski

26-Dec-09 2:50

Here's the answer in C#:

CultureInfo ci = CultureInfo.CreateSpecificCulture("hi-IN");
string converted = 1234567m.ToString("N", ci);

Or in VB.NET:

Dim ci As CultureInfo = CultureInfo.CreateSpecificCulture("hi-IN")
Dim converted As String = 1234567D.ToString("N", ci)

See my article about Windows 7 Timer here on CodeProject

Using Combo box

sun.spider24-Dec-09 19:21

sun.spider

24-Dec-09 19:21

hi..
I am a beginner in Vb.net. need help. i m doing 1 project in which i have to retrieve field from table 1 to Combo Box & save it to table 2.
can anybody give me example.

Re: Using Combo box

DaveAuld24-Dec-09 22:21

how to decode =?windows-874?B?t7TKzbogdGVzdCB=?= to Thai Langauge ? [modified]

24-Dec-09 22:21

Are your tables you refer to in a dataset?

If so then you can bind the datasource/member properties of the combo box to the table 1.

Then just use an insert/update to table 2 based on the selecteditem in the combobox.

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

narongaun24-Dec-09 18:19

narongaun

24-Dec-09 18:19

Dim TCP As Net.Sockets.TcpClient
Dim POP3Stream As System.IO.Stream
Dim inStream As System.IO.StreamReader

TCP = New Net.Sockets.TcpClient
TCP.Connect(strServer, 110)

POP3Stream = TCP.GetStream
inStream = New System.IO.StreamReader(POP3Stream, System.Text.Encoding.GetEncoding("utf-8"))

strTemp = inStream.ReadLine

While (strTemp <> ".")
strEmailMess = strEmailMess & strTemp & vbCrLf
strTemp = inStream.ReadLine
End While

For example: if strTemp is =?windows-874?B?t7TKzbogdGVzdCB=?=

i have to cut ?windows-874?B? and ?= so, it will remains t7TKzbogdGVzdCB=

and i will use code below to encode it to Thai letter

Dim encoding As New System.Text.UTF8Encoding
Dim Buffer As Byte() = Convert.FromBase64String(t7TKzbogdGVzdCB=)

DecodeBase64 = encoding.GetString(Buffer)

it's read ?????????

How to make it read in Thai letter ?

Thanks

modified on Friday, December 25, 2009 4:43 AM

Re: how to decode =?windows-874?B?t7TKzbogdGVzdCB=?= to Thai Langauge ?

DaveAuld24-Dec-09 22:25

Re: how to decode =?windows-874?B?t7TKzbogdGVzdCB=?= to Thai Langauge ?

24-Dec-09 22:25

Your question is not very good.

You cut the items from where? what are you expecting it to decode to? what does the original data refer to?

You lost me with your question...

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

narongaun24-Dec-09 22:48

narongaun

24-Dec-09 22:48

sorry , I have revised my post already and hope u understand what i mean.

Thanks

For next loop and external file handling?

offroaderdan24-Dec-09 3:09

Re: For next loop and external file handling?

24-Dec-09 3:09

Hello experts.

I am stuck on something.

I have an external file whihc i am read/writting to it, that bit i can do however, what i really need to be able to do is split the document up.

At the moment i have one big text box with lots of data in it, what i need to do is split that data up and put the data into seperate textboxes,

i thought i could do this with a FOR and NEXT loop however that doesn't seem to work

Here's my code

Dim i(1 To 10) As Integer 
'reading a file

' Get a free file number
nFileNum = FreeFile

' Open a text file for input. inputbox returns the path to read the file
Open App.Path & "\stock.txt" For Input As nFileNum
lLineCount = 1

For i = 1 To 10 ' this loop doesn't seem to work!

' Read the contents of the file
Do While Not EOF(nFileNum)     'this works fine 
   Line Input #nFileNum, sNextline
   'do something with it
   'add line numbers to it, in this case!
   sNextline = sNextline & vbCrLf
   sText(i) = sText(i) & sNextline & vbNewLine    'take out sNumbers if dont work

'Next sNumber
next i 
Loop


txtRead.Text = sText(1)
txtRead1.Text = sText(2)

if anybody can help me that would be very helpful

Thanks

Dan

Eddy Vluggen24-Dec-09 4:09

Eddy Vluggen

24-Dec-09 4:09

You're reading the file 10 times, right to the end of the text. Wouldn't it make more sense to move the loop to the end of the method, and to process it after you read all the text?

I'd be guessing that you'd only need to read the file once.

I are Troll Suspicious | :suss:

Re: For next loop and external file handling?

DaveAuld24-Dec-09 22:27

Re: For next loop and external file handling? [modified]

24-Dec-09 22:27

You have your For Next and your Do Loop structures overlapped, doesn't look right to me.

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

Md. Marufuzzaman25-Dec-09 8:34

Md. Marufuzzaman

25-Dec-09 8:34

Before you perform to split a string you must have to provide the deliminator...It's a basic part of split a string..Your code is not similar to your need I guess.
Well I would like you suggest you to use Microsoft.Office.Interop.Word 11.0 to Handle not only a rtf file but also
any format of word documents.

Thanks
Md. Marufuzzaman

Don't forget to click [Vote] / [Good Answer] on the post(s) that helped you.

I will not say I have failed 1000 times; I will say that I have discovered 1000 ways that can cause failure – Thomas Edison.

modified on Friday, December 25, 2009 2:50 PM

Database problem NEARLY sorted out

offroaderdan24-Dec-09 1:12

24-Dec-09 1:12

Hi guys,
I asked a little while ago about a database problem i had.

Umm i seem to have figured out a lot of it however have a tiny problem.

Adodc1.Recordset.Find "First_Name = 'dan'", , adSearchForward

this code works and finds the record with first name dan

when i want to use a text box labeled txtSearch

Adodc1.Recordset.Find "First_Name" = txtSearch.Text, , adSearchForward

all hell breaks loose and it don't like it. It says there is an error 3001???

I am soooo close now, if i can get this done that would be very cool!!

And a merry xmas

Dan

offroaderdan24-Dec-09 1:13

24-Dec-09 1:13

i am using vb6

Md. Marufuzzaman24-Dec-09 1:44

Md. Marufuzzaman

24-Dec-09 1:44

offroaderdan wrote:
when i want to use a text box labeled txtSearch

Adodc1.Recordset.Find "First_Name" = txtSearch.Text, , adSearchForward

Try with this:

Adodc1.Recordset.Find "First_Name = '" & txtSearch.Text & "'", , adSearchForward

Thanks
Md. Marufuzzaman

offroaderdan24-Dec-09 1:53

24-Dec-09 1:53

woooooooooo thankyou ever so much

offroaderdan24-Dec-09 2:03

24-Dec-09 2:03

A stupid question now.

How do i transfer selected text from a list box and put that selected text into a textbox??

I thought that it was

listEquip.SelText = Text1.Text

however that don't seem to work

using vb6 Frown | :(

cheers

dan

Transfer text

David Mujica24-Dec-09 2:10

David Mujica

24-Dec-09 2:10

Don't you have the statement backwards ?

It should be Text1.Text = listEquip.SelText

Right ?

Re: Transfer text

offroaderdan24-Dec-09 2:13

24-Dec-09 2:13

Thanks for the reply!

No it still doesn't seem to work.
there's nothing stupid that i have to enable on the textbox to allow it to have whatever is selected on the listbox put into the textbox?

Dan

Eddy Vluggen24-Dec-09 4:07

Eddy Vluggen

24-Dec-09 4:07

"listEquip.Text", or "listEqiup.List(listEquip.ListIndex)". The first should be a shorthand-form of the latter, both should give you the text of the item that's selected in the listbox Smile | :)

I are Troll Suspicious | :suss:

Luc Pattyn24-Dec-09 4:39

Luc Pattyn

24-Dec-09 4:39

I didn't know listbox.Text was reflecting the selection; a little experiment shows it only works well for SelectionMode "One", otherwise it only shows one item out of many.

Smile | :)

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

Merry Christmas and a Happy New Year to all.

Eddy Vluggen24-Dec-09 6:57

Eddy Vluggen

24-Dec-09 6:57

Luc Pattyn wrote:
I didn't know listbox.Text was reflecting the selection; a little experiment shows it only works well for SelectionMode "One", otherwise it only shows one item out of many.

Not really useful knowledge, but VB6 has some 'features' to save the programmer from having to type much. One can't put multiple items into a string, so it does make sense in a VB6-kinda way.

This should raise an exception, from the point of view of a .NET programmer;

Dim A$: A$ = label1

In VB6 it will just copy the value of the 'default property' of the label into A$, conveniently the caption. One can't learn the language without also learning to curse and swear Smile | :)

Merry Christmas Thumbs Up | :thumbsup: