СОХРАНЕНИЕ ФАЙЛА, чтобы преуспеть с помощью vb.net из vb6 кода

Dim strFileName As String 
    Dim strText As String 
    Dim strFilter As String 
    Dim strBuffer As String 
    Dim FileHandle% 

    strFilter = "Comma Seperated File (*.csv)|*.csv" 
    CDMAIN.Filter = strFilter 
    CDMAIN.ShowSave 
    If CDMAIN.FileName <> "" Then 
     strFileName = CDMAIN.FileName 
     strText = Text1.Text 
     FileHandle% = FreeFile

«» «» «» «» «» «» «» «» '' 'Im с трудом преобразованием следующей строки кодов

 Open strFileName For Output As #FileHandle% 
     MousePointer = vbHourglass 
     Print #FileHandle%, strText 
     MousePointer = vbDefault 
     Close #FileHandle% 
    End If

функция сохраняет данные в Excel файл

источник

2013-09-27 user2466707

В преобразовании этого не очень много. как далеко вы получили? – Plutonix

Я отредактировал мое сообщение. im в последних нескольких строках – user2466707

Вы хотите использовать что-то вроде System.IO.StreamWriter. Эта [ссылка] (http://msdn.microsoft.com/en-us/library/system.io.streamwriter.aspx) показывает вам, как она работает и дает отличный пример. – Steve

Open strFileName For Output As #FileHandle% 
    MousePointer = vbHourglass 
    Print #FileHandle%, strText 
    MousePointer = vbDefault 
    Close #FileHandle%

переводит в код VB.NET:

Me.Cursor = Cursors.WaitCursor 
    Using fs As New StreamWriter(strFileName, False) 
     fs.WriteLine(strText) 
    End Using 
    Me.Cursor = Cursors.Default

источник

2013-09-27 16:16:09 George

спасибо, сэр. оно работает – user2466707

СОХРАНЕНИЕ ФАЙЛА, чтобы преуспеть с помощью vb.net из vb6 кода

ответ

Смежные вопросы