Автоматическая нумерация строк - VB
Формулировка задачи:
У меня есть сорок пять строк,нужно что бы каждая строка стояла под своим номером.Строки находятся в TextBox1.
Вот код ну или предложите свой.
Заранее спасибо.
P.S. Я новичек.
Решение задачи: «Автоматическая нумерация строк»
textual
Листинг программы
Public Class Form1 Dim B As String Private Property SWFToImage As Object Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SWFToImage = CreateObject("SWFToImage.SWFToImageObject") SWFToImage.InitLibrary("demo", "demo") SWFToImage.InputSWFFileName = "C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\SWF\my.swf" SWFToImage.ImageOutputType = 1 ' set output image type to Jpeg (0 = BMP, 1 = JPG, 2 = GIF) SWFToImage.Execute_Begin() ' start conversion MsgBox("There are " & CStr(SWFToImage.FramesCount) & " frames to convert" & vbCrLf & "Will convert first 10 frames only") Dim a As Long Dim u As Integer = 2 B = B + 1 For i = 0 To 45 ' change to SWFTOImage.FramesCount -1 to convert all frames SWFToImage.FrameIndex = i ' set frame index SWFToImage.Execute_GetImage() SWFToImage.SaveToFile("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(i) & ".jpg") Next Randomize() u = Rnd() Dim Mass(10) As String ' Объявляем массив с индексом 10, для хранения символов Dim r As Long ' Переменная для хранения чисел Dim G As String ' Переменная для хранения символов Randomize() ' Это чтоб в функции Rnd генерировались разные числа For i = 0 To 10 ' Цикл, будет 10 раз повторяться Mass(i) = 0 ' Все числа массива приравниваем к 0 r = Rnd() * 1 ' Генерируем случайное число(от 0 до 1) и записываем его в переменную R If r = 0 Then ' Если R=0 то: Mass(i) = "Bla" ' Записываем в массив(индекс зависит от переменной i) слово "Bla" End If If r = r Then r = r + 1 G = G & i & "" + Chr(13) ' Переменная G = G(это содержимое переменной)&i(это перенная содержит число повторений цикла) + " = " + Mass(i)(значение массива(ил "Bla" ил "0")) + Chr(13)(ну это Enter(т.е. новая строка)) Next i MsgBox(G, 48, "") SWFToImage.Execute_End() ' end conversion Dim swfneme As String = ("C:\Users\Михаил\Desktop\utexh\bhj.txt") Dim id_xml As String = ("<image id= " & (g) & ">" & vbCrLf & " <title>Картинка_" & (SWFToImage.FrameIndex) & "</title>" & vbCrLf & " <image>" & ("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(SWFToImage.FrameIndex) & ".jpg") & "</image>") Dim kod As System.Text.Encoding = System.Text.Encoding.GetEncoding(65001) Dim ch As New IO.StreamReader(swfneme, kod) For i% = 1 To 45 TextBox1.Text = TextBox1.Text & vbCrLf & id_xml & vbCrLf & "" Next i% ch.Close() Dim kod1 As System.Text.Encoding = System.Text.Encoding.GetEncoding(65001) Dim swfnam2 As String = "C:\Users\Михаил\Desktop\utech3\bhj.xml" Dim cg As New IO.StreamWriter(swfnam2, False, kod1) cg.Write(TextBox1.Text) cg.Close() End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д