Visual Basic

how to read and write data to text file

4-Mar-06 9:45

pankajgarg12 wrote:
Please send me some code.

And those link had the code, albeit in VB6, but they had to code non-the-less.

If you want code written for you, you'll have to look someplace else.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Murtuza Husain Miyan Patel3-Mar-06 21:53

Murtuza Husain Miyan Patel

3-Mar-06 21:53

Dear Friends

I have small project in which I read the cases of patient and write it in a text file. I want to write the complete deatil of each patient in one line so that when I will read patient I can easily write the record to other user database. but when I read the record according to line no it gets half record only. because the record is not writing in one line since it is very big .
Can u please give me some solution for this. I want to wirte each record on sinlge line of text file regardless of the how big the record is in length.

Thanks
Murtuza Patel

Re: how to read and write data to text file

Dave Kreskowiak4-Mar-06 9:44

Re: how to read and write data to text file

4-Mar-06 9:44

How big is this record??

There is no limit to the size of a single line of text in a file, so the problem has to be in your code writing the text to the file.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Murtuza Husain Miyan Patel5-Mar-06 2:37

Murtuza Husain Miyan Patel

5-Mar-06 2:37

Dear Dave Kreskowiak,

Can u please reveiw my code to export he patient case in he textfile. Some friend told your notepad file must not be wordwrape. How can I do tha in my program.

Function ExportCases()
Dim MrecNo As String
Dim PtName As String
Dim PtDiagnosis As String
Dim PtHistory As String
Dim PHospital As String
Dim Ptsubspt As String
Dim EntryDate As Date
Dim ts As TextStream
Dim ExpStr As String
Dim sSQL As String
Dim PicComment As String
Dim pfno As String
Dim PicID As String
Dim i As Integer

On Error Resume Next

With FrmPicture
MrecNo = Trim(.TxtPCode.Text)
PtName = Trim(.TxtPName.Text)
PtDiagnosis = Trim(.TxtDiagnosis.Text)
PtHistory = Trim(.TxtHistory.Text)
PHospital = Trim(.TxtHospital.Text)
Ptsubspt = .CmbSubspcialitye.Text
EntryDate = .TxtDate.Value
End With

ExpStr = MrecNo & "@#$" & PtName & "@#$" & PtDiagnosis & "@#$" & PtHistory & "@#$" & PHospital & "@#$" & Ptsubspt & "@#$" & EntryDate & "@#$"
PicFolder.CreateFolder ExpPath & "\ExportedCases"
PicFolder.CopyFolder Trim(App.Path & "\Pictures\" & MrecNo), Trim(ExpPath & "\ExportedCases\" & MrecNo)
Set ts = PicFolder.CreateTextFile(ExpPath & "\ExportedCases\ImpCase.Text", True, True)
ts.WriteLine (ExpStr)

Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient

sSQL = "Select * from PicsDetail where PFno='" & MrecNo & "'"
Rst.Open sSQL, Conn
For i = 1 To Rst.RecordCount
pfno = Trim(Rst.Fields(0))
PicID = Trim(Rst.Fields(1))
PicComment = Trim(Rst.Fields(2))
ExpStr = pfno & "@#$" & PicID & "@#$" & PicComment & "@#$"
ts.WriteLine (ExpStr)
Rst.MoveNext
Next i

ts.Close

End Function

Re: how to read and write data to text file

Dave Kreskowiak5-Mar-06 7:36

Re: string to date conver

5-Mar-06 7:36

OK. So far, the code looks good. That is, it'll work if the data doesn't contain a carriage return, which will not be stripped out by Trim.

You'll have to write a function to scan a string for Carriage Return and/or Line Feed and strip those out before you write the string to a text file.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

string to date conver

illusionFinder3-Mar-06 20:38

illusionFinder

3-Mar-06 20:38

hi there,
I have a problem of using Conver function to convert a text '01/01/2006' for example to datetime
please give me an example
thanks

Jon Sagara3-Mar-06 20:42

Jon Sagara

3-Mar-06 20:42

DateTime.Parse[^]
DateTime.ParseExact[^]

Jon Sagara
Look at him. He runs like a Welshman. Doesn't he run like a Welshman? Doesn't he? I think he runs like a Welshman.
Sagara.org | Blog | My Articles

Re: string to date conver

Guffa3-Mar-06 21:58

Guffa

3-Mar-06 21:58

That date format is ambigous, it could either be interpreted as dd/mm/yyyy or mm/dd/yyyy, and which one is chosen depends on what the current culture setting happens to be.

Specify a CultureInfo or DateTimeFormatInfo when you parse the string.

---
b { font-weight: normal; }

datagrid cell leave problem

besnik rama3-Mar-06 13:24

besnik rama

3-Mar-06 13:24

HI, i'm using vb.net and I need to get event when I leave a specific cell in my datagrid. for instance to get a messagebox when i leave a specific cell.

Thank You so much !!!

Re: datagrid cell leave problem

noshaba mariam3-Mar-06 17:21

noshaba mariam

3-Mar-06 17:21

There are two events of a grid leave cell event and enter cell event...Leave cell event occurs when focus transffered to some other cell and Enter Cell event occur when specified cell got focus.
Try them mey be it would work for u Smile | :)

Re: datagrid cell leave problem

abhinish3-Mar-06 19:02

abhinish

3-Mar-06 19:02

Hi rama !

chack this link out, quite good examples for win form datagrid and many more

http://www.syncfusion.com/FAQ/WindowsForms/Default.aspx#44[^]

this might help u...

abhinav

Usercontrol name problem in VB 2005

jbwhiskeysix3-Mar-06 8:31

jbwhiskeysix

3-Mar-06 8:31

I’m using VB 2005 and attempting to have usercontrols connect to each other on the same and different forms at design time and run time.

My usercontrol class is called “Widget”. At design time when I drop Widgets on a form, their names in the property editor are assigned as Widget1, Widget2 and so on. The problem is that to other widgets on the form (when I enumerate them with a For…Each and query their names), their fellow widgets are all named with the class name “Widget”, not the instance name. This makes it difficult to connect them to each other.

At run time, the correct instance names are available.

I’ve tried just about every technique I know including shadowing the Name property (works at design time but corrupts the designer and fails at run time), extracting names with reflection (returns the generic name for an instance at design time) and so on.

Anybody have a suggestion on how to get the instance names to be available at design time?

Thanks in advance.

Re: Usercontrol name problem in VB 2005

Dave Kreskowiak3-Mar-06 13:42

Getting Information from a Web Site / Page

3-Mar-06 13:42

It's odd that you can't use the control's Name property. You might want to set the same name in the control's Tag property instead.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

VbRob3-Mar-06 8:27

3-Mar-06 8:27

Could someone please point me in the right direction.

I'm writing a lotto program in vb.net 2005 and thought it might be a good idea to pull information off of the offical lotto home page(s) showing the last drawn numbers and display them on my form.

I will need to either download the page and then search the html or search the page on line. The problem is I don't really know the best way of doing this.

Please can someone advise or point me to some code that does something simular so I can work this out.

Many Thanks in advance

Jeremy Falcon3-Mar-06 8:32

Jeremy Falcon

3-Mar-06 8:32

VbRob wrote:

I'm writing a lotto program in vb.net 2005 and thought it might be a good idea to pull information off of the offical lotto home page(s) showing the last drawn numbers and display them on my form.

Are you sure this is legal? Some sites don't want people taking their information and others don't care.

Jeremy Falcon

VbRob3-Mar-06 8:37

3-Mar-06 8:37

I sure it is fine.

In any case what am I going to do with old already drawn lotto numbers that get changed on a weekly basis ?

Do you know how I could do this?

-- modified at 14:40 Friday 3rd March, 2006

Dave Kreskowiak3-Mar-06 13:36

3-Mar-06 13:36

VbRob wrote:
I sure it is fine.

Yeah? And the owners of the site are sure you should check with them first. It's better than getting sued off the face of the earth.

In any case, you can use the HttpWebRequest class to get the page. Then you just need to use a RegEx expression to find the text that your looking for.

HttpWebRequest[^]
RegEx.Match()[^]
RageInTheMachine9532

"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

-- modified at 19:38 Friday 3rd March, 2006

VbRob4-Mar-06 2:47

4-Mar-06 2:47

Many Thanks

Thanks for advise

VbRob4-Mar-06 5:18

4-Mar-06 5:18

ok - I have managed to get the html down by doing the following.
Could someone please point me in the direction on how I now strip out and display certain lines.

TextBox1.Text = GetHTTPResponse("http://www.webpage.com")

Public Function GetHTTPResponse(ByVal strURL As String) As String
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim getBody As String
Dim bodyStream As System.IO.Stream
Dim bytes As Int32
Dim RecvBytes(Byte.MaxValue) As Byte
httpReq = CType(System.Net.WebRequest.Create(strURL), System.Net.HttpWebRequest)
httpResp = CType(httpReq.GetResponse(), System.Net.HttpWebResponse)
bodyStream = httpResp.GetResponseStream()
Do While True
bytes = bodyStream.Read(RecvBytes, 0, RecvBytes.Length)
If bytes <= 0 Then Exit Do
getBody += System.Text.Encoding.UTF8.GetString _
(RecvBytes, 0, bytes)
Loop
Return getBody
End Function

VbRob4-Mar-06 6:56

4-Mar-06 6:56

Ok I have found the heading in the html that I would like to strip out and place in a text box.

Can someone please advise how I do this and include the next 6 lines or so (i.e the numbers).
Or would it be better to get the gifs? and put them into a picture box?

Dave Kreskowiak4-Mar-06 9:40

4-Mar-06 9:40

It's simple string manipulation at this point. You could either get the number of the ball from the alt tag, or just get the path to the files representing the ball numbers.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

VbRob4-Mar-06 11:32

4-Mar-06 11:32

Thanks for Responding Again Dave

As I have never done this before have you got some code that I could follow or point me to some examples.

Thanks

VbRob10-Mar-06 0:26