|
Hi,
I'm having BIG problems with the substring method.
I have a really big string and I need to extract data from this string; and for that I use substring, but it does not return a good value.
pointer = InStr(startingPointer, readout, Chr(13) + Chr(10))
If startFlag = True Then ' IGNORE this
line = readout.Substring(startingPointer - 1, pointer - 1) ' This block of code executes only once. ignore this .
pocetniPointer = pointer + 2
Else
line = readout.Substring(startingPointer, pointer + 2)
End If
I have debugg countless times. After couple of loops the variable line just adds up found substrings. For example after 5 loops startingPointer is 135 and pointer is 145 by the look of the second block in the else statement the line should return the string of 12 characters but instead it return the number close to 100+ characters.
It does not give a new value to the line it just adds up to the old value. This is the only code that uses the variable line.
Please help!
Thank you!
|
|
|
|
|
substring(startposition,length)
so when startingpointer is 135 and pointer is 145 you will get a string of 145 length
if you only want the 12 characters substract startingpointer from pointer before using it
hope this helps
If my help was helpfull let me know, if not let me know why.
The only way we learn is by making mistakes.
|
|
|
|
|
how to make a text box to accept n no of characters?? n is above the range of the default no of characters in text box.. if we have to do an active x wot property should be changed in order to do that??
Thank u,
Freak8802
|
|
|
|
|
are you talking about maxlength or we need more clarification....
|
|
|
|
|
ya wot i need i have to put unlimited char in the control(txt box).. how do we do it??
Thank u,
Freak8802
|
|
|
|
|
By default, a textbox's default MaxLength value is set to "32767" characters long.
Since the field type for the MaxLength property is Int32, the highest value that you could set it to would be "2147483647".
Hope this helps,
Mitch
|
|
|
|
|
the question is how do u change the int32 type value to other type.. i tot of putting it in variant??(i wasnt sure if i can) how do u change that value of the max len prop??
Thank u,
Freak8802
|
|
|
|
|
Hi everybody
I have a collection of word document which has got lots of Embedded image object inside it.
now what i have to do is read each word document and save out each embedded images to my hard drive ?
how do i do this without using clipboard method ?
Using the following code :
Dim word_doc As Microsoft.Office.Interop.Word.Document
word_doc = word_app.Documents.Open(FileName:="E:\testing.doc", ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, Format:=Microsoft.Office.Interop.Word.WdOpenFormat.wdOpenFormatAuto)
' Delete InlineShapes.
With word_doc.InlineShapes
Do While .Count > 0
.Item(1).Delete()
Loop
End With
i can find any inline objects and delete it . but what i want is not to delete but to save out to the hard drive ?
Any idea ?
regards
suis
|
|
|
|
|
Hello,
Am developing a multi-threaded application.
I have a time consuming task that is to save all the data to xml. This takes time so I am doing it in a thread. However, when the thread is started, I would like to open up a new form rather than have the user wait for the save to finish, then open a new form.
However, the new form never opens until the work is completed and the UI is not responding.
In the output window i can see that the threads are existed everytime they go to the sub procedure to save the XML. I think that all the work has to be done in the thread procedure and cannot call other procedures, but not sure about this
Many thanks for your help.
<br />
'Form load event<br />
public sub FormLoad<br />
dim threadSaveXML as new System.Threading(Addressof SaveXML)<br />
threadSaveXML.Start()<br />
<br />
'Open the new form while the data is still currently being saved. Do not wait for the data to be saved first<br />
Dim objOrders as new frmOrders()<br />
objOrders.Show()<br />
<br />
'Hide the current form so the process can still take place in the background.<br />
me.hide()<br />
End Sub<br />
<br />
<br />
'Calls the sub procedures to save the actual data to xml.<br />
private sub SaveXML()<br />
SaveBeverages()<br />
SaveMainCourse()<br />
etc.....<br />
End Sub<br />
<br />
private sub SaveBeverages()<br />
'saves to xml<br />
end sub<br />
<br />
private sub SaveMainCourse()<br />
'Saves to xml<br />
end sub<br />
<code>
|
|
|
|
|
steve_rm wrote: 'Form load event
public sub FormLoad
dim threadSaveXML as new System.Threading(Addressof SaveXML)
threadSaveXML.Start()
Try this code instead:
dim threadSaveXML as new System.Threading.Thread(New ThreadStart(Addressof SaveXML))
threadSaveXML.Start()
Hope it helps !
AliAmjad(MCP)
First make it Run THEN make it Run Fast!
|
|
|
|
|
hi all,
i have developed an application in vb6 with ms-sql7, using the dataenvironment reportings i have developed some reports.
The proble is this when i want to print the a report on lazer printer it give me desired result,but when print on a dot-matrix printer it gives me very different result.
Please help me to sort out my problem.
thanks in advance
rmshah
rmshah
Sr. Developer
|
|
|
|
|
r_mohd wrote: it gives me very different result
Vasudevan Deepak Kumar
Personal Homepage
Tech Gossips
Yesterday is a canceled check. Tomorrow is a promissory note. Today is the ready cash. USE IT.
|
|
|
|
|
i mean to say, when i use lazer printr it gives me accurate result on A4 paper, but on dotmatrix when i use continue stationery the same report, it resulted me very diffrent. the report start from closer to the top and ends in the middle, rest paper it keep blank and move to the next page,while on A4 size paper on lazer printer it strat after a margin as i desired and end at the bottom.
thanks
rmshah
Sr. Developer
|
|
|
|
|
Sounds like your printer settings are wrong - the non printable margins incorrect?
|
|
|
|
|
Printers will return reports in slightly different formats even though they may be encoded to use A4.
This is just a fact of IT life.
The only way around this is:
.1)Ensure that the you have the correct drivers for the dot matrix.
.2)Design the report for the printer it is being printed on.
.3)Resign yourself to the fact there really is no way around this sort of problem other than tweaking the report layout in your code.
.4)Get rid of the dot matrix and replace it with a laser.
One of my reports produces barcodes on, standard sized, small labels.
Every time my client changes their laser printer I have to tweak the report by a few millimetres.
Good luck...
You always pass failure on the way to success.
|
|
|
|
|
Thanks a lot for your support.
rmshah
Sr. Developer
|
|
|
|
|
hello,,, please help me
How to create sub report in report(.rdlc) not crystalreport using VB.net 2005
Thank's
|
|
|
|
|
Hi
How to setup to two headers in gridview. Top header would cover two columns and second header one column.
........Food
....Bev Hambergers
Thanks
|
|
|
|
|
Try using these codes to make the cells appear as merged:
DataGridView1.AdvancedCellBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None
DataGridView1.AdvancedCellBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None
|
|
|
|
|
Hey all, im reading a text file and displaying its output in a textbox. I am also making "Next" and "Previous" buttons so the user can go back and forth at will.
The text file looks like
aaa 333
bbb 444
ccc 555
ddd 888
ggg 111
The forward button works fine but I can't figure out a way to go back to a previous record. Any ideas on how this could be accomplished?
gHoSt
|
|
|
|
|
Hi, for lists that are line oriented (i.e. words don't suddenly wrap and move to another line)
you should consider a ListBox; it is much more flexible and efficient, and it knows how
to scroll every way you want.
Luc Pattyn [Forum Guidelines] [My Articles]
this months tips:
- use PRE tags to preserve formatting when showing multi-line code snippets
- before you ask a question here, search CodeProject, then Google
|
|
|
|
|
put them in an array and work from i.
Dim Records() as string = file.readalllines("c:\example")
Dim CurrentRecord as Integer = 0
on forward:
if currentrecord < (records.length - 1) then
currentrecord +=1
me.displaytextbox.text = records(currentrecord)
end if
on backward:
if currentrecord >0 then
currentrecord -=1
me.displaytextbox.text = records(currentrecord)
end if
-- modified at 17:22 Saturday 10th November, 2007
|
|
|
|
|
The ANZAC wrote: on backward:
currentrecord +=1
and some boundary checking would be advised too.
Luc Pattyn [Forum Guidelines] [My Articles]
this months tips:
- use PRE tags to preserve formatting when showing multi-line code snippets
- before you ask a question here, search CodeProject, then Google
|
|
|
|
|
ta, i thought he could do his own boundary checking but i may as well include it hey.
|
|
|
|
|
You people are vb gods, like seriously ... this thing works perfectly .. does the exact thing that I wanted ... but I'm a bit not satisfied ... why? I want to know how this is really working ... I don't understand how it works ... in the conditional statements, what is really being compared?
On forward:
if currentrecord < (records.length - 1) then ...
what does the current line number (currentrecord) have to do with the length of the record (record.length)?
Sorry if i'm annoying ..
gHoSt
|
|
|
|