Определить количество строк в открытом файле - VB

  1. Здравствуйте, Форумчане. Напишите пожалуйста исходник. Мне нужно чтобы, 1. "программа открывала файл(желательно TXT)" 2."считала сколько строчек в открытом файле" 1. знаю 2. ПОМОГИТЕ. ЗАрание благодерен.


textual

Код к задаче: «Определить количество строк в открытом файле - VB»

Private Sub Комманда1_Click()
Dim M() As String
   Dim File As String, CF As String
   File = "d:\ca.log"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
      Close #1
M = Split(CF, vbNewLine)
MsgBox "Всего " & UBound(M) - 1 & "строчек"
End Sub

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.700 из 5



Похожие ответы
  1. Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.

  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 begin   write('Введите n: ');   var n := ReadInteger;     var c := 0;   for var i:=1 to n do   begin     write ('Введите целое число: ');     var x := ReadInteger;     if x mod 2 <> 0 then       c += 1;   end;     writeln('Количество нечетных равно ', c); end. Нужно сделать в VB . Я сделал , но не правильно , выводит только 0. Помогите пожалуйста , буду благодарен. Вот мой код :

  1. 1) создать экранную форму, разместив на ней элементы управления: кнопку и два тек-стовых поля – одно для ввода чисел, другое – для вывода результата вычислений; 2) поместить на форму поясняющие надписи около этих элементов, а также фамилию, номер группы, текущую дату и номер варианта; 4) создать процедуру, запускаемую при нажатии кнопки на форме и выполняющую необходимые вычисления. В заданном массиве подсчитать количество чисел, делящихся без остатка на 7: 28 21 26 14 63 28 33 19 21 22

  1. Записать в 1 строку 10 целых чисел из диапазона [-3;3]. Определить,сколько из этих элементов равны числу А (целое,вводимое с клавиатуры). Вывести найденное количество элементов в любую ячейку строки В (в пределах экрана), которую выделить зеленым цветом. Если элементов,равных числу А нет,то вывести число не равное нулю и закрасить синим цветом. А принадлежит [-3;3]

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Отметки точек трассы представлены как элементы массива. В этом массиве находят разность мах и мин элементов для определения размаха эпюры трассы. Величина размаха учитывается при выборе размеров (формата) чертежа. В данной задаче студентам следует решить только первую часть проблемы: определить максимальный элемент массива

  1. как определить язык windows на VB6.0?

  1. Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.

  1. Дана строка. Подсчитать количество содержащихся в ней цифр.