.NET 4.x Создание txt файлов с рандомным содержимым - Visual Basic .NET

  1. Понадобилось создать пару сотен тхт файлов у которых рандомное содержание, т.е. обычный набор букв и цифр и тут меня осенило, что я понятия не имею как это сделать Т.е. к примеру нужно создать 100 тхт файлов, у которых: имя файла 1.txt, 2.txt, 3.txt,... и т.д. до 100 содержание файлов, рандомный набор букв и цифр содержимое txt файлов в пределах не меньше 50 и не больше 100 символов Надеюсь кто-то делал нечто подобное. Буду благодарен за помощь.


textual

Код:

Dim Path As String = "D:\"
Dim Alphabet As String = "1234567890йцукенгшщзхъфывапролджэячсмитьбю"
Dim Ran As New Random()
For n = 1 To 100
Dim FileWriter As IO.StreamWriter = IO.File.CreateText(IO.Path.Combine(Path, String.Format("{0}.txt", n)))
For i = 0 To Ran.Next(50, 100)
FileWriter.Write(Alphabet.ToCharArray()(Ran.Next(Alphabet.Length)))
Next
FileWriter.Close()
Next


Похожие ответы
  1. VB 2015. С помощью нехитрых алгоритмов генерируется массив 40х40. За каждым значением закреплено определенное изображение 16х16 пикселей (допустим, что 0 - нет спрайта, 1 - есть спрайт). Необходимо эту совокупность всецело выводить в один-единственный элемент (предположительно PictureBox) по каждому нажатию клавиши без значительных задержек. Реализовывал это раньше через FlowLayoutPanel и 1600 отдельных PictureBox, но это сильно отжирает ресурсы компьютера при первоначальной отрисовке и не позволяет грамотно использовать скроллинг изображения внутри элемента-панели. Использую циклы, m как номер столбца, n на номер строки. P.S. С System.Drawing не дружу, ибо компилятор не любит, когда "e As EventArg" в другом сабе становится "e As PaintEventArg" (пишет, что невозможно привести к этому типу).

  1. Всем привет! Как в DataGrid создать 4 столбца и циклом добавить в них: в первом столбце - чекбокс во втором столбце - число в третьем столбце - картинка в четвертом столбце - текст Буду очень благодарен за пример.

  1. Добрый день, Товарищи! Есть вопрос, нужно сформировать отчетик из DataGridView1. Хотелось бы отметить что есть скрытые столбики, которые не нужно помещать в отчет. Отчет подразумевает перенос всей DataGridView1 построчно в тхт. я по быстрому сделал так, но это не удобно. т.к. он пишет каждую колонку( даже скрытую).Конечно можно в переборе написать всякие разные условия, но все же. может есть универсальный метод, и вообще без перебора? А просто перенос всей сформированной DataGridView1 в тхт построчно.vb.net1 2 3 4 5 6 7 8 9 10 11 12         For i = 0 To DataGridView1.RowCount - 1                   Rowq = ""             For a = 0 To DataGridView1.Rows(i).Cells.Count - 1                 Rowq = Rowq & DataGridView1.Rows(i).Cells(a).Value & " ; "             Next               stroka = stroka & Rowq & vbNewLine           Next

  1. Вечер добрый. Имею в наличии такой код:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub button2_Click(sender As Object, e As EventArgs)     Dim count As Integer = 0     Using connection As New SqlConnection("Data Source=prodenis\SQLEXPRESS;AttachDbFilename=|DataDirectory|\db_APM.mdf;Integrated Security=True;user Instance=True")         Using command As New SqlCommand("select * from [user] where user=user and password=password", connection)             command.Parameters.AddWithValue("user", textBox1.Text)             command.Parameters.AddWithValue("password", textBox2.Text)             connection.Open()             Using reader As SqlDataReader = command.ExecuteReader()                 While reader.Read()                     count += 1                 End While             End Using             connection.Close()         End Using         If count = 0 Then             MessageBox.Show("Пароль неверен!")             Return         End If         Me.Hide()         Dim frm2 As New APM()         frm2.Show()     End Using End SubПри попытке компиляции начинает ругаться на см скрин.

  1. Нужна помощь с извлечением данных из текстового файла. Извлечение нужно производить не с начала файла, а после определённой фразы. После нее идет огромный массив данных, состоящий из даты и значения температуры. Нужно извлекать значение температуры в зависимости от даты, дата изменяется с шагом в 10 минут и сравнивается с допустимым диапазоном, если диапазон не подходит, то ничего не извлекается. Дата сравнивается с точностью до секунды, а значение температуры состоит исключительно из чисел. Значения температуры заносятся в таблицу экселя, дата сравнивается с датой из той-же таблицы в экселе, там уже есть массив ячеек с разбивкой дат по шагу в рамках допустимого диапазона. Форматы дат в файле и экселе совпадают. Тело файла выглядит так: Кликните здесь для просмотра всего текста Значения измеренных величин: 24/03/2016 09:00:01 - 23.0912 °C 24/03/2016 09:10:01 - 22.0277 °C 24/03/2016 09:20:01 - 21.0890 °C 24/03/2016 09:30:01 - 20.1500 °C

  1. Здравствуйте, создаю программу на VS 2015. Необходимо сделать, чтобы программа разворачивалась на полный экран. С этим мне удалось разобраться, но как скрыть Заголовок и нижнюю панель задач. Вообщем, чтобы программа полностью на весь экран была, как, например, во многих играх на ПК. Спасибо за помощь!

  1. Здравствуйте. Нужно архивировать файлы с каталога (запаковать) Как заорхивировать я знаю (в FAQ есть ) Проблема в том, что файл с расширением .zip должен быть на диске. В этом и проблема, т.к.: 1) Если его создать как-нибудь так File.Create("D:\архив.zip") то это не архив по сути и программа ругается (битый файл) 2) Пустой архив без файла даже вручную создать не получится, в нем обязательно должен лежать хоть один файл, а он мне не к чему Как быть? В поиске форума вопросы хоть и были такие но никто ответ не дал на них. Вот сам код, который сейчас использую: Кликните здесь для просмотра всего текста vb.net1 2 3 4 Dim sh As New Shell32.Shell()         Dim input As Shell32.Folder = sh.NameSpace("D:\Temp")         Dim output As Shell32.Folder = sh.NameSpace("D:\Архив.zip")  'этот файл как пустой создать чтобы его можно было использовать (не битый)         output.CopyHere(input.Items, 4)

  1. Здравствуйте! Нужно чтобы при нажатии кнопки создавался PictureBox с определёнными свойствами Location: x, y и SizeMode: Autosize и в него загрузилась определённая картинка. Но нужно чтобы перед этим была произведена проверка на наличие другого PictureBox на этих координатах (Location) и если на них уже имеется PictureBox, то нужно чтобы создаваемый PictureBox размещался по другим координатам, но если и там уже есть PictureBox, то по следующим и т.д. Все PictureBox'ы будут иметь одинаковый размер. Помогите, пожалуйста, с решением.

  1. Хочу создать свой браузер для личного использования. Планируемые функции:Вперёд [Сделано] Назад [Сделано] Обновить [Сделано] Остановить [Сделано] Домашняя страница [Сделано] Перейти [Сделано] Поиск [Сделано] Просмотр исходного кода [Сделано] Добавление и удаление вкладок [Сделано только добавление] Вот собственно код:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40   Dim i As Integer = 1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim browse As New WebBrowser         TabControl1.TabPages.Add(i, "" & i)         TabControl1.SelectTab(i - 1)         browse.Name = ""         browse.Dock = DockStyle.Fill         TabControl1.SelectedTab.Controls.Add(browse)         i = i + 1     End Sub       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim browse As New WebBrowser         TabControl1.TabPages.Add(i, "" & i)         TabControl1.SelectTab(i - 1)         browse.Name = ""         browse.Dock = DockStyle.Fill         TabControl1.SelectedTab.Controls.Add(browse)         i = i + 1     End Sub       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)     End Sub       Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()     End Sub       Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()     End Sub       Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()     End Sub       Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()     End Sub Теперь вопросы:Как сделать кнопку удаления вкладки? Как сделать что бы в название вкладки отображался сайт на котором ты находишся? Добавлено через 3 часа 15 минут первый вопрос решён:vb.net1 TabControl1.TabPages.Remove(TabControl1.SelectedTab)

  1. Доброго форумчане и уни, пытаюсь написать простенькую функцию для mathcad 11 (более шустрая версия) почитав статью на хабре и примеры , функция чтения файла vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 Imports System.Reflection Imports NetEFI   Public Class readfile       Implements IFunction       Private _info As FunctionInfo       Public ReadOnly Property Info() As FunctionInfo Implements IFunction.Info         Get             Return _info         End Get     End Property       Public Sub New()           _info = New FunctionInfo("readfile", "filepatch", "dilimited", _             New Uri(Assembly.GetExecutingAssembly().CodeBase).LocalPath, _             GetType(String), _             New Type() {GetType(String), GetType(String)}) ', GetType(TComplex(,))     End Sub       Public Function GetFunctionInfo(ByVal lang As String) As FunctionInfo Implements IFunction.GetFunctionInfo           Return Info     End Function       Public Function NumericEvaluation(ByVal args As Object(), ByRef result As Object) As Boolean Implements IFunction.NumericEvaluation           Dim array As String(,) = Nothing           result = array           Try             Dim dfile = DirectCast(args(0), [String])             Dim dilimeted = DirectCast(args(1), [String])                           Dim fStream As New System.IO.FileStream(dfile, IO.FileMode.Open)             Dim sReader As New System.IO.StreamReader(fStream)             Dim sArray As String()             Dim I As Integer = 0             Do While sReader.Peek >= 0                 ReDim Preserve sArray(I)                 sArray(I) = sReader.ReadLine                 I += 1             Loop             Dim rows As Integer = sArray.Length - 1             Dim cols As Integer = sArray(0).Split(";").Length - 1             'Dim array(rows, cols) As String             Dim _array As String()               For K As Integer = 0 To rows                 For J As Integer = 0 To cols                     _array = sArray(K).Split(New Char() {";"})                     array(K, J) = _array(J)                 Next             Next             result = array           Catch ex As Exception             Return False         End Try     End Function   End Classвызываю ее и - ошибка - "general protection error" наверно все объявления переменных в вункции NumericEvaluation кроме первой - ошибочны но и конвертировать в TComplex не получается - невозможно преобразовать string в TComplex