how to read data in calendar form

[zaaba]

Hi all. I'm new here and also new in VB programming. Just need a little help from you all. My question is how VB can read data in calendar form. The coding that I create is like this.

For Day = 1 To 31
  Line Input #2, strLineDataED
  'intMonth = 0
  'Np = 1
  'For Month = 1 To 12
    'strMonthP(intMonth) = Format(Mid(strLineDataED, 1, 7), "00.00")
    If Month = 1 Then
      ED(Day, Month) = Format(Mid(strLineDataED, 1, 7), "00.00")
    Else
      'ED(Day, Month) = Format(Mid(strLineDataED, Np, 7), "00.00")
      'Np = Np + 7
    'End If
  'Next Month
'Next Day

But the problem is the data space in every field must have 7 spaces before it can read data in other fields. Can anyone let me know how to alter the coding so that the space can be in free format? Because it really takes time to arrange all data to have 7 spaces as for the data is very much. tq.

[Killer42]

Hi zaaba, welcome to TheScripts (and VB).

Can you please explain your situation in a little more details? For instance, what version of VB are you using? Also, it's not entirely clear whether you have existing data and need to write code to read it, or you are trying to decide how to format the code, and how to read it, or what.

If you already have the data and you just want you program to read it, then I'm sure we can help you set up your code to read whatever is there. It should not be necessary to change the format of the data to suit your code.

[zaaba]

Can you please explain your situation in a little more details? For instance, what version of VB are you using? Also, it's not entirely clear whether you have existing data and need to write code to read it, or you are trying to decide how to format the code, and how to read it, or what.

If you already have the data and you just want you program to read it, then I'm sure we can help you set up your code to read whatever is there. It should not be necessary to change the format of the data to suit your code.

--------------------------------------------------------------------------------
ii killer42...

thanks for your attention..
sori if u r not clear wit my ques..
i'm using vb 6.0...actually i already have existing data n need vb to read it from a file...but da prob to me is the data are in calendar form which is have days in column n month in fields...Each of the data have their calculation to be done by vb 6.0..Based on the code, the format of fields of existing data must have 7 space but i want to change it to free format...is my xplanation clear for u?..thanks alot ya..

[Killer42]

Can you show us a sample of the data you want to read in?

[zaaba]

dis is part of the data and the data is not in format 7 space each...from left to right is the data for month which are have 12 data meanwhile from top to bottom is the data for days which actually have 31 days.

53.30 10.10 0.00 12.60 2.50 7.60 2.50 1.20 30.40 27.90 1.70 71.10
40.60 12.60 0.00 5.00 0.00 0.00 5.00 2.50 2.50 11.40 2.50 0.00
13.90 0.00 0.00 10.10 0.00 0.00 35.50 2.50 1.20 2.50 1.20 6.30
58.40 0.00 0.00 2.50 0.00 0.00 5.00 0.00 2.50 0.00 0.00 2.50
66.00 0.00 0.00 1.20 0.00 0.00 0.00 0.00 27.90 7.60 30.40 0.00
12.60 0.00 2.50 0.00 1.20 72.30 0.00 0.00 12.60 0.00 0.10 0.00
30.40 2.50 1.20 0.00 2.50 2.50 0.00 2.50 0.00 5.00 12.60 0.00
19.00 15.20 0.00 0.00 0.00 0.00 2.50 3.80 21.50 0.00 2.50 0.00


thanks

[pureenhanoi]

dis is part of the data ... 2.50 0.00

Killer42, do you know his meaning ?

[Killer42]

Killer42, do you know his meaning ?

I'm not sure.

zaaba, do you mean that you have a column for each month, and a row for each day, like in a spreadsheet?

In any case, if you use something like Line Input # to read each line into a string, you should then be able to use the Split() function to chop it into 12 entries, breaking at the spaces. I'm not sure how Split() will handle multiple spaces in a row, though.

[zaaba]

Killer42, yes the data is like in a spreadsheet..how can vb know for example 53.30 is the data for day =1 and month =1 meanwhile 10.10 is the data for day =1 and month =2 and so on..by the way, can u explain about the Split function and how to create the split coding if u dont mind...thanks

[zaaba]

dis is part of the data ... 2.50 0.00

Pureenhanoi..
the data means for example 2.50 is the data for day=1 and month =1 meawhile 0.00 is the data for day=1 and month=2...actually from left to right is data for months which is each of them present the data for month 1,2...until 12..meanwhile from top to bottom is data present days which are actually have 31 days each month.. for the months that are not 31 days, i put the value as 0.00..is it clear?..

[pureenhanoi]

dis is part of the data ... 2.50 0.00

Pureenhanoi..
the data means for example 2.50 is the data for day=1 and month =1 meawhile 0.00 is the data for day=1 and month=2...actually from left to right is data for months which is each of them present the data for month 1,2...until 12..meanwhile from top to bottom is data present days which are actually have 31 days each month.. for the months that are not 31 days, i put the value as 0.00..is it clear?..

Like Killer42 said, you can use split() function instead of Mid$() to get sub-string.
Let see: if we have a string with 12 groups of number (seperate by Space)
now, get each seperated group like this

Dim strLine As String
Dim temp As Variant
Dim ss As Variant
Dim Month As Integer
 
'Read each line from file into strLine here
temp  = Split(strLine," ")    'split each group by Space
Month = 1
For Each ss In temp
  Debug.Print "Month = " & month & " >> Data = " ss & vbCrLf
  Month = Month + 1
Next
 

[pureenhanoi]

Hi all. I'm new here and also new in VB programming. Just need a little help from you all. My question is how VB can read data in calendar form ...

Your code should be:

Dim strLineData As String
Dim temp As Variant
Dim ss As Variant
Dim nMonth As Integer
Dim nDay As Integer
 
nDay = 1
While Not EOF(#2)   'this traps error if the file has fewer than 31 Lines
  Line Input #2, strLineData         'read entire row into varriable
  temp = Split(strLineData," ")   'Split each line into an array
  nMonth = 1
  For Each ss In temp    'traps error if line has fewer than 12 groups of number
     Debug.Print "Day " & nDay & ",Month " & nMonth & " >> Data=" & ss
     nMonth = nMonth + 1
  Next
  nDay = nDay + 1
Wend
 

[zaaba]

pureenhanoi.....

i'll alter my coding as u create...thanks a lot ya for your help...really appreciate it :)