Hallo Leute. Kann man folgende Routine einfacher bzw. kürzer schreiben oder geht das nur in dieser langen form ??
Open "C:\fibu2004\kunden.dat" For Input As 1
Input #1, kdnrmax
For i = 1 To kdnrmax
Input #1, kd1(i)
Input #1, kd2(i)
Input #1, kd3(i)
Input #1, kd4(i)
Input #1, kd5(i)
Input #1, kd6(i)
Input #1, kd7(i)
Input #1, kd8(i)
Input #1, kd9(i)
Input #1, kd10(i)
Input #1, kd11(i)
Input #1, kd12(i)
Input #1, kd13(i)
Input #1, kd14(i)
Input #1, kd15(i)
Input #1, kd16(i)
Input #1, kd17(i)
Input #1, kd18(i)
Input #1, kd19(i)
Input #1, kd20(i)
Input #1, kd21(i)
Input #1, kd22(i)
Input #1, kd23(i)
Input #1, kd24(i)
Input #1, kd25(i)
Input #1, kd26(i)
Input #1, kd27(i)
Input #1, kd28(i)
Input #1, kd29(i)
Input #1, kd30(i)
Input #1, kd31(i)
Input #1, kd32(i)
Input #1, kd33(i)
Input #1, kd34(i)
Input #1, kd35(i)
Input #1, kd36(i)
Input #1, kd37(i)
Input #1, kd38(i)
Next i
Close #1