Load specified Text to listbox
anybody can help me in this.......
in my project i have 2 list box and 2 text box and a textfile
hers the textfile
Code:
[Sunday]
English
10.00
10.30
Maths
11.00
11.30
Economics
12.00
12.30
[Monday]
Accounting
10.00
11.00
Business Studies
12.00
01.30
[Tuesday]
Study skill
10.00
11.30
Management and organization
12.00
01.30
[Wednesday]
Biology
01.00
02.00
Chemistry
02.00
03.30
[Thursday]
Physics
01.00
01.30
[Friday]
Computer Studies
07.00
08.00
[Saturday]
Business Management
11.30
12.45
i want when form load
load all the week days to 1 list box
and when i click on the week day load all the Subjects and when i click on the subject add the 2 time to 2 text box
Here`s a sample Picture
http://i41.tinypic.com/20796l1.jpg
Re: Load specified Text to listbox
Your screen shot looks like you might be using VB.Net. If so, you posted in the wrong forum section.
Other than that, you can search the forums, this question has been asked many many times and there are a lot of examples on how to do it. What you will need to do is load the entire file to one list, then parse the data according to type (If contains "[" then go to list 1, etc...).
EDIT: One more comment, with this, instead of using two listboxes and two text boxes, I would rather choose one Listview with 4 columns (Day, Subjcet, Start Time, End Time) that way all data will be visible at once, you dont have to handle click events for lists to load appropriate data etc.
Re: Load specified Text to listbox
He may be using VB.Net, but this problem can be easily handled in VB6. :ehh:
Re: Load specified Text to listbox
Quote:
Originally Posted by
Code Doc
He may be using VB.Net, but this problem can be easily handled in VB6. :ehh:
It can be solved with almost any programming language but it still is in the wrong section. People giving him code examples will assume he's using VB6 and give him code that might not work in .Net.
Re: Load specified Text to listbox
hey guys im using vb6.. not vb.net.. because im using windows 7 it look like im using .net please help me in this
Re: Load specified Text to listbox
Quote:
Originally Posted by
manmad
hey guys im using vb6.. not vb.net.. because im using windows 7 it look like im using .net please help me in this
I figured as much. Not sure why you were cross-examined in Post #2. VB6 still exists. I use it all the time.
Re: Load specified Text to listbox
He was cross examined because there are some complications with installing VB6 on Vista, and by the look of the theme and his being a novice I asumed he was on .Net. I'm not sure why you are making such a big deal out of it. And, I still use VB6 too.
Anyway, manmad, look at my suggestion in post #2 and let us know if you have any troubles with it.
Re: Load specified Text to listbox
Quote:
Originally Posted by
baja_yu
He was cross examined because there are some complications with installing VB6 on Vista, and by the look of the theme and his being a novice I asumed he was on .Net. I'm not sure why you are making such a big deal out of it. And, I still use VB6 too.
Anyway, manmad, look at my suggestion in post #2 and let us know if you have any troubles with it.
I'm making a big deal out of it? :afrog: Good grief. :sick:
Re: Load specified Text to listbox
Quote:
Originally Posted by
manmad
anybody can help me in this.......
in my project i have 2 list box and 2 text box and a textfile
hers the textfile
Code:
[Sunday]
English
10.00
10.30
Maths
11.00
11.30
Economics
12.00
12.30
[Monday]
Accounting
10.00
11.00
Business Studies
12.00
01.30
[Tuesday]
Study skill
10.00
11.30
Management and organization
12.00
01.30
[Wednesday]
Biology
01.00
02.00
Chemistry
02.00
03.30
[Thursday]
Physics
01.00
01.30
[Friday]
Computer Studies
07.00
08.00
[Saturday]
Business Management
11.30
12.45
i want when form load
load all the week days to 1 list box
and when i click on the week day load all the Subjects and when i click on the subject add the 2 time to 2 text box
Here`s a sample Picture
http://www.vbforums.com/images/ieimages/2010/04/1.jpg
A good place to start : http://www.vbforums.com/showthread.php?t=348141#file
And try using other's suggestion too. If you got stuck at any part, post the code and the details of the error or line that shows the problem.
Good luck :thumb:
Re: Load specified Text to listbox
Quote:
Originally Posted by
Code Doc
I'm making a big deal out of it? :afrog: Good grief. :sick:
Well obviously, because after 3 posts you have yet to post anything useful or relevant to the thread topic, rather than second guessing and commenting on my posts. So... But, now I'm going off topic too so I'm done with the discussion. My suggestions are there, others can take it from here.
Re: Load specified Text to listbox
Heres my coding..
Code:
Option Explicit
Private Declare Function GetPrivateProfileSection _
Lib "kernel32" Alias "GetPrivateProfileSectionA" _
(ByVal lpAppName As String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileSectionNames _
Lib "kernel32.dll" Alias "GetPrivateProfileSectionNamesA" _
(ByVal lpszReturnBuffer As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Dim strIniFile As String
Private Sub Form_Load()
Dim arSections() As String
Dim i As Integer
strIniFile = "c:\test.txt"
arSections() = GetSections(strIniFile)
For i = 0 To UBound(arSections)
List1.AddItem arSections(i)
Next i
If List1.ListCount > 0 Then List1.ListIndex = 0
End Sub
Private Sub List1_Click()
Dim arValues() As String
Dim i As Integer
List2.Clear
arValues() = GetValues(strIniFile, List1.List(List1.ListIndex))
For i = 0 To UBound(arValues)
List2.AddItem arValues(i)
Next i
End Sub
Public Function GetSections(inifile As String) As String()
Dim strBuffer As String
Dim arSections() As String
Dim lngLength As Long
strBuffer = String$(1024, 0)
lngLength = GetPrivateProfileSectionNames(strBuffer, 1024, inifile)
strBuffer = Left$(strBuffer, lngLength)
arSections = Split(strBuffer, vbNullChar)
GetSections = arSections()
End Function
Public Function GetValues(inifile As String, sectionname As String) As String()
Dim strBuffer As String
Dim bufLength As Long
Dim arValues() As String
Dim lngLength As Long
bufLength = 10240
strBuffer = String$(bufLength, 0)
lngLength = GetPrivateProfileSection(sectionname, strBuffer, bufLength, inifile)
strBuffer = Left$(strBuffer, lngLength)
arValues = Split(strBuffer, vbNullChar)
GetValues = arValues()
End Function
in this coding i can load the week days to 1 listbox and the subjects to the 2nd listbox.. bt i dnt knw how can i load the starting time and end time to the textboxes can u put somehelp on it.....
Re: Load specified Text to listbox
Is the file format a given or can you modify it? If you can, I'd suggest doing something like this
[Monday]
SubjectCount=2
Name1=Maths
Start1=10:00
End1=11:00
Name2=English
Start2=11:00
End2=12:00
That way you can use all INI manipulation functions to load data. First grab the count, then do a For Loop (1 To Count) and grab each value "Name" & I, "Start" & I, "End" & I (I from the For Loop counter).