reading inividual letters

[sid6.7]

a data(text) file was made like this

Code: Select all

gggggggggggggggggggg
gtgegvgZgggggggggggg
gggggggggggggggggggg
gagAgbgYgggggggggggg
gggggggggggggggggggg
gBgUgLgVggDggggggggg
gggggggggggggggggggg
gggggggggggggggggggg

for example i want to read each
letter and then count it on a counter...

but for some reason using plain INPUT nor GET
with TYPE/END TYPE doesnt read anything
what am i forgetting to read each individual letter?..

[Skyler]

input a line, then:

Code: Select all

for x = 1 to len(line$)
   y$ = mid(line$, x, 1)
   'add y$ to counter here
next x

I think thats how to make mid select one char. if not, reverse x and 1 in mid$().

[bungytheworm]

Reading one char at time from file like that might be a hard way. (correct me if im wrong).
I would first read one line at time to StringVariable.
Then DIM Array(LEN(StringVariable))

For Counter = 1 TO LEN(VariableA)
ArrayA(Counter) = MID$(VariableA,Counter,1)
Next Counter

If line, readed from file is IE "My line what i wana read", each cell from Array() gets one character from StringVariable.

Array(1) = "M"
Array(2) = "y"
Array(3) = " "
Array(4) = "l"
.
.
.
and so on.

Hopefully i understund your question correctly. Fix if i was wrong

[bungytheworm]

Ok, skyler was bit faster on this one

[sid6.7]

thanks guys...i totally forgot mid$

DOH!

[Stoves]

Code: Select all

DIM f AS INTEGER
DIM letter AS STRING * 1

f = FREEFILE

OPEN file$ FOR BINARY AS #f

  DO UNTIL EOF(f)

    GET #f, , letter

    'Count the letter

  LOOP

CLOSE #f