|
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
|
|
|
|
|
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 
|
|
|
|
|
You have your For Next and your Do Loop structures overlapped, doesn't look right to me.
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
|
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
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.
|
|
|
|
|
woooooooooo thankyou ever so much
|
|
|
|
|
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 
cheers
dan
|
|
|
|
|
Don't you have the statement backwards ?
It should be Text1.Text = listEquip.SelText
Right ?
|
|
|
|
|
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
|
|
|
|
|
"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 
I are Troll 
|
|
|
|
|
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.
|
|
|
|
|
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
Merry Christmas 
|
|
|
|
|
Welcome...
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.
|
|
|
|
|
Thanks in Advance
I made a setup in Visual Studio 2008 Setup Wizard of a Database Application (Language VB) having Crystal Report as a reporting Tool
In the Previous setups the Reports were previewing perfectly but now when i Build the Setup its is giving Error on Test as well as on Client PC assembly error of "CrystalDecisions.Windows.Forms" that cannot be found while it is added in the Dependencies/Setup and was working ok before
Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
I Added Prerequisites and Problem solved is their any other solution because Prereq. sizzze is 240 Mb
Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
Hi Experts,
Am beginner on vb .net programming and would like to get some solutions here. I tried to search around google but i cant really find articles which similar to my case.
Here my scenario is,
Am dealing with windows mobile and I got multiple screen, multiple scenario that share same key in text field which i had create on another form.
Because of the limited space available on screen, then i decided to create a new form for user to key in the data then save it behind the main application on invisible textbox but i found tat i need to duplicate multiple *same form to deal with my scenario. So I would like to know is there any better way to do so?
Explain in more details by example:
I got screen A, B, C ,D and a data form.
User will open either screen A, B, C or D then upon of screen that they choose, they need to open data form to key in extra data and save in behind the main application (screen A, B, C, or D).
What can be done for the moment is i create 4 same data form each for screen A, B, C and D. Then, I would like to know whether its possible to be just 1 data form and how can i do it?
Thanks.
Regards,
George
|
|
|
|
|
What about creating a object/class to hold your data, but make the properties, variables etc. SHARED.
This would allow every form that the uses that object, to share data.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Seems that this is the only way to deal with it by input another module and declare the object as global object?
Am looking for an alternative way, secure one, is this possible?
Rookie here.
|
|
|
|
|
New to Visual Basic 2008
This warning is showing up (turns to a compile error if I have Option Strict set to ON) in various lines of code and I'm unsure how to fix it.
a couple of line examples are
If GetData(driPhoneBD, chkShowAll.CheckState.ToString) = True Then
The GetData function accepts the second parameter and is Boolean - chkshowall.CheckState is -1 if it's ticked and 0 if it's not
I could set GetData second param to a numberic, but I'd rather find out how to "convert" the -1 and 0 values of CheckState to boolean because I will have to do it at other points during programming.
Another example is this
.IncDate = dgviPhoneBD.CurrentRow.Cells(6).Value.ToString
.IncDate is a date variable in my class and dgviPhoneBD is my datagridview
I read that I could use this
.IncDate = Date.Parse(dgviPhoneBD.CurrentRow.Cells(6).Value.ToString)
and whilst the warning does disappear, I'd like to know if this is the correct way to convert a value to the correct datatype.
Why, for example, is there not this
.IncDate = Date.Parse(dgviPhoneBD.CurrentRow.Cells(6).Value.ToDate)
Why is it always "ToString()"?
Thx for your help
|
|
|
|
|
wmar67 wrote: (turns to a compile error if I have Option Strict set to ON)
Please... Do yourself a favor, and ALWAYS have Option Strict set to ON. It should NEVER be turned off, if you want your code to be stable. I think many people will echo my sentiment that the "Option Strict" shouldn't even be an option, but rather permanently on.
As for the actual conversion... I believe it's the same in VB.NET as it is in C#.
Convert.ToBoolean(x)<br />
Convert.ToDouble(x)<br />
Convert.ToDate(x)
etc...
The conversion isn't done by the variable itself, but by the System.Convert class.
|
|
|
|
|
I second Option Strict On for all new development (and as much old code as possible)
If chkShowAll.CheckState is an integer and you need a boolean, why not do a comparison:
If GetData(driPhoneBD, (chkShowAll.CheckState <> 0)) Then
For your second example, I would suggest setting a breakpoint and determining the actual type of the .Value. If the value is actually storing an Date object, you could just say CDate(......Value) and never do a ToString. There are many similar functions for the basic types, CInt, CLong, etc and for all others you can use CType(value, TargetType).
|
|
|
|
|
Thx for the answers.
Trust me when I say I will have Option Strict on. It was off by default and didn't realise until I started looking into this issue with Implicit Conversion.
|
|
|
|
|
Hi all.
i want to write some content into a text file in my application. am getting the input text like this:
AGREEMENT, SIGNIFY YOUR DECISION BY CLICKING THE "DO NOT AGREE" BUTTON; AND YOU MAY RETURN THIS PRODUCT (including all materials) TO THE PLACE WHERE YOU OBTAINED IT WITH YOUR RECEIPT WITHIN THIRTY DAYS FOR A FULL REFUND.
ATTACHMATE®
1. LICENSE. Attachmate Corporation ("Attachmate") grants you the right to use the Attachmate software programs contained in this package (the "SOFTWARE") on a single personal computer. The SOFTWARE consists of several programs and is licensed as a single product. The SOFTWARE'S component parts may not be separated for use on more than one computer or by more than one user at any time. You may install the SOFTWARE on a network server,
----------------------
i am trying to write this content into a txt file. i tried using put,write,writeline and print almost all the functionalities which i have come across in net.
But to my surprise, i am getting the output as follows:
IMPORTANT: PLEASE READ THE FOLLOWING LICENSE AGREEMENT CAREFULLY BEFORE CONTINUING BECAUSE THE SOFTWARE PRODUCT IS LICENSED, NOT SOLD. IF YOU PROCEED WITH THE SETUP PROCEDURE (installation) OR USE THE SOFTWARE (OR AUTHORIZE ANY OTHER
PERSON TO DO SO) BY CLICKING THE "AGREE" BUTTON, THEN YOU ACCEPT THE TERMS AND CONDITIONS OF THE LICENSE AGREEMENT. IF YOU DO NOT AGREE WITH THE TERMS OF THE LICENSE AGREEMENT, SIGNIFY YOUR DECISION BY CLICKING THE "DO NOT AGREE" BUTTON; AND YOU MAY RETU
RN THIS PRODUCT (including all materials) TO THE PLACE WHERE YOU OBTAINED IT WITH YOUR RECEIPT WITHIN THIRTY DAYS FOR A FULL REFUND. ....etc.,
the problem is, it is not writing exactly what is there in the input.. why it is happening like this?
can any one please enlighten me?
thanks,
rakesh.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
