Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Считать файл и передать в MySQL Добавлено: 30.04.09 05:59  

Автор вопроса:  mashutkai
Здравствуйте. Помогите пожалуйста написать такую программу: надо чобы программа каждые 5 секунд считывала файл построчно и если он изменился, записывать новую строку в MySQL на удалённый сервер, а не достающие - удалять.

С начала помогите считать файл в переменную или в массив и вывести хотябы через MsgBox.

Делаю это в VB 2008 Express

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #1 		Добавлено: 30.04.09 06:30
это делается не так, кидаешь на форму компонент FileSystemWatcher, ставишь NotifyFilter = LastWrite, указываешь путь к директории , где валяется файл, и когда файл измениться у тебя автоматом сгенерица событие и не нада будет каждые 5 с без надобности мучить файл.

Ответить

Номер ответа: 2
Автор ответа:
 mashutkai



Вопросов: 1
Ответов: 2
  Профиль | | #2 Добавлено: 30.04.09 06:51
Спасибо за совет. С этим я разберусь. А можете привести пример кода считывающего данные из файла построчно и выводящего их в MsgBox для начала? А потом надо их записать в БД MySQL.

Ответить

Номер ответа: 3
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #3 		Добавлено: 30.04.09 11:59
Еще одна аська)))!

Ответить

Номер ответа: 4
Автор ответа:
 mashutkai



Вопросов: 1
Ответов: 2
  Профиль | | #4 Добавлено: 30.04.09 12:16
Считать у меня получилось, но никак не могу разобраться с FileSystemWatcher. Если не трудно дайте плз простенький пример использования. У меня программа зависает :(
  1.  
  2.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3.         Dim strFileType As String
  4.         strFileType = "txt файлы (*.txt)|*.txt|Все файлы (*.*)|*.*"
  5.         Me.OpenFileDialog1.Filter = strFileType
  6.  
  7.         Me.OpenFileDialog1.ShowDialog()
  8.         Me.TextBox1.Text = Me.OpenFileDialog1.FileName
  9.         Tri = Me.OpenFileDialog1.FileName
  10.         TriCat = Me.OpenFileDialog1.InitialDirectory
  11.  
  12.         If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
  13.             MsgBox(Tri)
  14.             Dim nameFile As String = Tri, strF As String
  15.             Dim sr As IO.StreamReader
  16.             sr = My.Computer.FileSystem.OpenTextFileReader(nameFile)
  17.             While Not sr.EndOfStream
  18.                 strF = sr.ReadLine
  19.                 MsgBox(strF)
  20.             End While
  21.             sr.Close()
  22.             Dim fsw = New System.IO.FileSystemWatcher()
  23.             MsgBox(TriCat)
  24.             fsw.Path = TriCat
  25.             fsw.NotifyFilter = Tri
  26.         End If
  27.  
  28.         '(Timer1.Enabled = True)
  29.     End Sub
  30.  
  31.  
  32.     Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
  33.         Dim nameFile As String = Tri, strF As String
  34.         Dim sr As IO.StreamReader
  35.         sr = My.Computer.FileSystem.OpenTextFileReader(nameFile)
  36.         While Not sr.EndOfStream
  37.             strF = sr.ReadLine
  38.             MsgBox(strF)
  39.         End While
  40.         sr.Close()
  41.     End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам