Вход | Регистрация

1С:Предприятие ::

Метки:Обмен данными и УРБД

фрагмент кода

Я
   sam_sam
 
15.06.04 - 13:18
--------------------------------------------------------------------------------

дайте фрагмент кода в VB, прочитать текстовый документ, в тексте написано например 1я строка C:\1С_distrib\BIN\1cv7s.exe config /d c:\conf\uprash\135\SSTDB /@ c:\cao0.prm., а во второй строке  C:\sendmail\sendmail.exe pochta.ru sam@pochta.ru x:\my_doc\workfromURIBD\vygruzka\
Делаю авторепликацию баз 1с через урибд, управление идет через VB, нужно закинуть параметры из текстового документа,
 
  Рекламное место пустует
   NastyFrog
 
1 - 15.06.04 - 14:02
Ежели VB - скрипт-хостом обрабатываешь, то например
Sub GetLineFromFile(sFile)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set txtFile = FSO.OpenTextFile(sFile, 1)
Do While txtFile.AtEndOfLine <> True
MsgBox (txtFile.ReadLine)
Loop
End Sub

Коли не WSH
Sub GetLineFromFile(sFile)
Dim TextLine
Open sFile For Input As #1
Do While Not EOF(1)
    Line Input #1, TextLine

    MsgBox (TextLine)
Loop
Close #1
EndSub
   sam_sam
 
2 - 15.06.04 - 14:17
спасибо NastyFrog работает
   sam_sam
 
3 - 15.06.04 - 14:37
Можно этот текст читать не циклом, а получить строку 1, 2, то есть выборочно 5,8,10. К слову в Vb я чайник, а разбираться некогда.
Заранее благодарен.
   sam_sam
 
4 - 15.06.04 - 14:42
и еще можно в коде сделать типа попытки, если открыть текст не получилось то обработать другим методом без выскакивания ошибок
   NastyFrog
 
5 - 15.06.04 - 16:31
Sub GetLineFromFile(sFile, NeededNumber) 
Dim TextLine, nStr
On Error GoTo ErrW
Open sFile For Input As #1
nStr=1
Do While Not EOF(1)
  Line Input #1, TextLine
If nStr=NeededNumber then
   MsgBox (TextLine)
End If
nStr=nStr+1
Loop
Close #1
Exit Sub
ErrW:
MsgBox ("Oblom")
End Sub
   sam_sam
 
6 - 15.06.04 - 17:00
огромное спасибо усе работает это про "Облом".А номер строки я спрашивал можно ли получить строку вне цикла, то есть вообще не использовать цикл, типа получить стоку и все, но  в принципе это и не важно я уже практически так и сделал  Do While Not EOF(1)
  Line Input #1, TextLine
   If f = 1 Then
   Текст1.Text = TextLine
   ElseIf f = 2 Then
   Текст2.Text = TextLine
   End If
   f = f + 1
Loop


Список тем форума
Рекламное место пустует   Рекламное место пустует
Независимо от того, куда вы едете — это в гору и против ветра!
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует