Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: tony
сделал так:

Sub proba()

УдалениеПробелов "C:\report.txt"

End Sub


Public Function УдалениеПробелов(file As String)
Dim fso, a, f, retstring, retstream
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(file)
Set a = f.OpenAsTextStream(ForReading, False)
Do While a.AtEndOfStream <> True
retstring = a.ReadLine
retstring = Replace(retstring, " ", "")
retstream = retstream & retstring & vbCrLf
Loop
a.Close
Set a = f.OpenAsTextStream(ForWriting, False)
a.Write retstream
a.Close
End Function

и так


Private Sub Кнопка36_Click()
Dim Путь As String
Путь = Application.CurrentProject.Path & "\report.txt"
DoCmd.OutputTo acOutputReport, "report", acFormatTXT, , False
УдалениеПробелов Путь
End Sub

возник другой вопрос...как организовать перенос файла из фиксированой папки с помошью диалога save as


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.