Числа из ListView сохраняются в Excel как текст - Visual Basic .NET

  1. Доброго времени всем! Бьюсь с такой темой, числа из listview сохраняются как текст в exselе. У меня есть текст, дата, цена и сумма. Цена и сумма сохраняются как текст. Как исправить, подскажите, плиз.vb.net1 2 3 4 5 6 7 8  For Each item As ListViewItem In flvFiles.Items             For i As Integer = 0 To item.SubItems.Count - 1                 sheet.Cells(row + 1, col) = item.SubItems(i).Text 'Here                 col = col + 1             Next             row += 1             col = 1         Next


textual

Код:

Dim MeStryng as string=item.SubItems(i).Text
If IsNumeric(MeString)=True Then
   sheet.Cells(row + 1, col) =cDec(MeString)
Else
     sheet.Cells(row + 1, col) =MeString
End If


Похожие ответы
  1. Здравствуйте, форумчане! У меня есть ListView и данные которые вносятся в него. В загрузке формы, читается файл с данными для ListView. Как сделать так чтобы читалось? Кликните здесь для просмотра всего текста Код для записи предметов в файл из нескольких ListView.vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click         On Error Resume Next         If Directory.Exists(Application.StartupPath & "\SystemConfig") = False Then IO.Directory.CreateDirectory(Application.StartupPath & "\SystemConfig")         Dim Str As String = ""         For Each Element_Items In ListView1.Items             Str &= Element_Items.Text & vbNewLine         Next         File.WriteAllText(Application.StartupPath & "\SystemConfig\system32.txt", Str)         TextBox1.Text = ""         For Each Element_Items In ListView2.Items             Str &= Element_Items.Text & vbNewLine         Next         File.WriteAllText(Application.StartupPath & "\SystemConfig\fs32.txt", Str)         TextBox2.Text = ""           For Each Element_Items In ListView3.Items             Str &= Element_Items.Text & vbNewLine         Next         File.WriteAllText(Application.StartupPath & "\SystemConfig\fstest32.txt", Str)         TextBox3.Text = ""     End Sub Заранее спасибо!

  1. Есть listview с двумя столбцами. Первый - логин, второй - Пароль. Как сделать так что бы в Listview1 во втором столбце (Пароль) информация отображалась символом * ? а при нажатии на строчку выводилась выбранная запись в Textbox1 и Textbbox2 уже нормальным текстом. На сколько мне известно у listview нет свойства PasswordChar. Как можно выйти из этой ситуации? из listview в текстовый поля вывожу вот так:vb.net1 2 3 4 5 6 7         If Not ListView1.SelectedItems.Count = 0 Then             With ListView1.SelectedItems.Item(0)                 Me.TextBox1.Text = .Text                 Me.TextBox2.Text = .SubItems(1).Text             End With           End IfЗаранее спасибо за помощь!

  1. Как удалить последнюю пустую строку из Listview? данные беру из текстового файла. vb.net1 2 3 4 5 6 7 8 Using sr As StreamReader = File.OpenText(Application.StartupPath & "\users.txt")         While (-1 < sr.Peek())         Dim line As String = sr.ReadLine()         Dim item As New ListViewItem(line.Split("|"c))         ListView1.Items.Add(item)         End While         sr.Close()         End Usingвыгружается в listview почему-то с пустой последней строчкой. хотя в файле ее нет. заранее спасибо

  1. НА форме listview и кнопка. listview состоит из 2х столбцов как сохранить данные в текстовое поле из listview с разделителем | между ячейками? заранее спасибо!

  1. Приветствую! Есть ли возможность в стандартный listview запихать такие вещи, как checkbox, radiobutton, numericupdown ? Вроде видел, что так можно проворачивать в datagridview, но с ним пока не очень дружу.

  1. Всем доброго времени суток! Не знаю, как решить проблему. На форме Listview с несколькими колонками. НУЖНО в первую колонку поместить картинку из файла или иконку, а в остальные - текст. Пока у меня получается так (см. миниатюру 1), а нужно чтобы было как на 2-й миниатюре. Вот код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 Public Class Form1       Dim listviewitem As ListViewItem     'Create a new ImageList with the size you want the icons to be     Private ImgList As New ImageList With {.ImageSize = New Size(24, 24)}       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         ListView1.View = View.Details         ListView1.FullRowSelect = True         ListView1.SmallImageList = ImgList               With ListView1.Columns             .Add("Icon", 60, HorizontalAlignment.Center)             .Add("   Имя События.", 150, HorizontalAlignment.Left)             .Add("Дата события", 200, HorizontalAlignment.Center)             .Add("Дата напоминания", 200, HorizontalAlignment.Center)           End With            End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click           ImgList.Images.Add(My.Resources.Books)         ImgList.Images.Add(My.Resources.Chrome)         ImgList.Images.Add(My.Resources.Dreamviewer)         Dim lvi As New ListViewItem("", ImgList.Images.Count - 1) 'set the icon for the ListViewItem with an empty string for its Text           ListViewItem = New ListViewItem()         listviewitem.SubItems.Add(InputBox("Вписать новое событие", "Добавление события.", ""))         listviewitem.SubItems.Add(DateTimePicker1.Value)         listviewitem.SubItems.Add(DateTimePicker2.Value)         Me.ListView1.Items.Add(listviewitem)              For i = 0 To ImgList.Images.Count - 1                     ListView1.Items.Add("", i)         Next        End Sub End ClassСпасибо за помощь и понимание.

  1. Всем доброго времени суток! На форме Listview. Как определить, что 1. ячейка пуста 2. пуста колонка? Спасибо за помощь и понимание.

  1. Есть скрипт на powershell, который выводит список принтеров с домена:PowerShell1 2 3 4 $terminals = ("domen") $terminals | ForEach-Object { Get-WmiObject -class Win32_Printer -computer $terminals ` | Where-Object {$_.ShareName -ne $null} ` | select Name, ShareName, PortName } `результат его работы такой Name ShareName PortName ---- --------- -------- Xerox-3250 Xerox-3250 10.57.1.162 Xerox-3250 Xerox-3250 10.57.1.161 Xerox-3250 Xerox-3250 10.57.1.165 нашел в интернете библиотеку System.Management.Automation, которая интегрирует powershell в vb.net, и выводит результат в текстовое поле. вот весь код: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 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 Imports System.Collections.ObjectModel Imports System.Management.Automation Imports System.Management.Automation.Runspaces Imports System.Text Imports System.IO Public Class Form2       Private Function RunScript(ByVal scriptText As String) As String           ' create Powershell runspace         Dim MyRunSpace As Runspace = RunspaceFactory.CreateRunspace()           ' open it         MyRunSpace.Open()           ' create a pipeline and feed it the script text         Dim MyPipeline As Pipeline = MyRunSpace.CreatePipeline()           MyPipeline.Commands.AddScript(scriptText)           ' add an extra command to transform the script output objects into nicely formatted strings         ' remove this line to get the actual objects that the script returns. For example, the script         ' "Get-Process" returns a collection of System.Diagnostics.Process instances.         MyPipeline.Commands.Add("Out-String")           ' execute the script         Dim results As Collection(Of PSObject) = MyPipeline.Invoke()           ' close the runspace         MyRunSpace.Close()           ' convert the script result into a single string         Dim MyStringBuilder As New StringBuilder()           For Each obj As PSObject In results             MyStringBuilder.AppendLine(obj.ToString())         Next           ' return the results of the script that has         ' now been converted to text         Return MyStringBuilder.ToString()       End Function       Private Function LoadScript(ByVal filename As String) As String           Try               ' Create an instance of StreamReader to read from our file.             ' The using statement also closes the StreamReader.             Dim sr As New StreamReader(filename)               ' use a string builder to get all our lines from the file             Dim fileContents As New StringBuilder()               ' string to hold the current line             Dim curLine As String = ""               ' loop through our file and read each line into our             ' stringbuilder as we go along             Do                 ' read each line and MAKE SURE YOU ADD BACK THE                 ' LINEFEED THAT IT THE ReadLine() METHOD STRIPS OFF                 curLine = sr.ReadLine()                 fileContents.Append(curLine + vbCrLf)             Loop Until curLine Is Nothing               ' close our reader now that we are done             sr.Close()               ' call RunScript and pass in our file contents             ' converted to a string             Return fileContents.ToString()           Catch e As Exception             ' Let the user know what went wrong.             Dim errorText As String = "The file could not be read:"             errorText += e.Message + "\n"             Return errorText         End Try       End Function         Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         'run our script and put the result into our textbox         'NOTE: make sure to change the path to the correct location of your script         TextBox1.Text = RunScript(LoadScript("d:\скрипты\print_list.ps1"))     End Subставил библиотеку вот отсюда:https://www.nuget.org/packages/Syste...nt.Automation/ результат выполнения всего кода такой(см. вложение). Выводиться в TextBox все работает шикарно, но есть одно но. как можно (и возможно ли вообще) перепилить код так что бы информация выводилась по столбцам в ListView. Пожалуйста, помогите! буду рад вашей помощи! Заранее большое спасибо!!!

  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 41 42 43 44 45 46 Public Class Form1     Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted         TextBox1.Text = WebBrowser1.Document.Body.InnerText           '-------------------------Алгебра-------------------------'           Dim a As Integer         Dim b, c, d, d1, f As String         a = TextBox1.Lines.Count - 1         For x = 0 To a Step 1             If TextBox1.Lines(x) = "Предметы" Then                 b = TextBox1.Lines(x + 4)                 c = Replace(b, "+", "")                 d = Replace(c, "H", "")                 d1 = Replace(d, " ", "")             End If         Next         '--------Среднее значение---------'         Dim aa, ss, Ost, Prov As Long, SRZN As Double         aa = d ' Вводим исходное число в текстовое поле на форме.         ss = 0         Do             Ost = aa - Int(aa / 10) * 10 ' Вычисляем очередную цифру как остаток от деления на 10.             If Ost > 0 Then ss = ss + Ost Else Exit Do ' Прибавляем остаток к сумме.             aa = Int(aa / 10) ' Отбрасываем последнюю цифру.         Loop         SRZN = ss / Len(d1)         Algebra.Text = d1       End Sub       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         WebBrowser1.ScriptErrorsSuppressed = True         WebBrowser1.Navigate(adress.Text)     End Sub       Private Sub WebBrowser1_ProgressChanged(sender As Object, e As WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged         Try             ProgressBar1.Value = CType((e.CurrentProgress / e.MaximumProgress * 100), Integer)         Catch Ex As Exception         End Try         If ProgressBar1.Value = 100 Then             Label3.Text = "Успешно!"         End If     End Sub End ClassЧто сделать, чтобы данные вносились 1 раз(на одну строчку). Эта форма выводится по нажатию на кнопку войти на другой форме

  1. Как отследить в каком столбце на какой строке клик.Добавлено через 15 минут И попутно... А картинки в иных столбцах - не разместить, только в левом крайнем?