|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
|
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; }
|
|
|
|
|
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 !!!
|
|
|
|
|
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 
|
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
Many Thanks
Thanks for advise
|
|
|
|
|
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
|
|
|
|
|
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?
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
Guys
I'm still having a problem with this can anyone help?
Thanks
|
|
|
|
|
Im trying to automat Acrobat Reader. I want to print pdf-files.
I added a reference to AcroPDFLib and typed the following:
Dim a As AcroPDFLib.AcroPDFClass
a = CreateObject("AcroPDF.PDF.1")
a.LoadFile("atmel_instruction_set.pdf")
Now, the object creates itself ok (i think) at least when i check the windows task manager the AcroRd32.exe is running.
But when the last line executes i get "Object reference not set to an instance of an object"
What am i doing wrong?
Thanks in advance
|
|
|
|
|
Knoen wrote: What am i doing wrong?
You need to assign it using the Set keyword. Try this instead...
Dim a As AcroPDFLib.AcroPDFClass
Set a = CreateObject("AcroPDF.PDF.1")
a.LoadFile("atmel_instruction_set.pdf")
Jeremy Falcon
|
|
|
|
|
Hi, still does not work. If i use the set keyword it just goes away when i change the row with the marker.
Jeremy Falcon wrote: You need to assign it using the Set keyword. Try this instead...
Dim a As AcroPDFLib.AcroPDFClassSet a = CreateObject("AcroPDF.PDF.1")a.LoadFile("atmel_instruction_set.pdf")
|
|
|
|
|
Knoen wrote: Hi, still does not work.
Then double check the name of your object used in CreateObject. Is that control installed on the system?
Jeremy Falcon
|
|
|
|
|
Hi,
Think there is two panels on the form that one panel is top of the other. the bottom panel's backcolor is red and the top panel is transparent.why top panel's intersecting area doesn't seem red. top panel wholy takes the form's backcolor. but i want too see at the intersecting area what bottom panel contains. i tried all the ways but couldn't success. 
Any suggestions? Please show me a way. Thanks!
mat
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
