ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запись в файл с правильным форматом !!!
6 сообщений из 6, страница 1 из 1
Запись в файл с правильным форматом !!!
    #33695024
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Господа, здравствуйте !

Помогите решить задачу.
Имеется некий текстовый файл с неправильным форматом:

Код: plaintext
1.
2.
3.
4.
^ZNU( 1 , 1 , 1 ) =  01 \ 91 \ 1 
. 00 
^ZNU( 1 , 1 , 2 ) =  01 \\ 200 \ 51 . 85 * 01 
^ZNU( 1 , 2 , 1 ) =  02 \ 140 \ 1 \ 933 . 75 \
 0 \ 0 . 00 * 01 \ 12 \ 32 \ 907 . 38 \ 75 . 00 * 03 \ 11 \ 21 \ 867 . 57 \ 78 . 00
Нужно чтобы он выгледел так:

Код: plaintext
1.
2.
^ZNU( 1 , 1 , 1 ) =  01 \ 91 \ 1 . 00 
^ZNU( 1 , 1 , 2 ) =  01 \\ 200 \ 51 . 85 * 01 
^ZNU( 1 , 2 , 1 ) =  02 \ 140 \ 1 \ 933 . 75 \ 0 \ 0 . 00 * 01 \ 12 \ 32 \ 907 . 38 \ 75 . 00 * 03 \ 11 \ 21 \ 867 . 57 \ 78 . 00

Код мой неправильно делает это
Где моя ошибка ?


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub cmdResave_Click()
Dim sTemp As String
Dim sTemp1 As String
Dim Str As String

sTemp = "D:\capture\bad.txt"
sTemp1 = "D:\capture\good.txt"
FileHandle% = FreeFile
Open sTemp For Input As #FileHandle%
FileHandle1% = FreeFile
Open sTemp1 For Output As #FileHandle1%
While Not EOF( 1 )
Line Input #FileHandle%, Str
If InStr(Str, "^ZNU") Then Print #FileHandle1%, Str
If Not InStr(Str, "^ZNU") Then
Str = Str & Str
Print #FileHandle1%, Str
End If
    Wend
Close #FileHandle%
Close #FileHandle1%
 
End Sub


Спасибо !!!
...
Рейтинг: 0 / 0
27.04.2006, 16:09
| Ответить | Цитировать | Написать  
Запись в файл с правильным форматом !!!
    #33695499
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Спасибо !!!
Разобрался сам:

Код: plaintext
1.
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.
Private Sub cmdResave_Click()
Dim sTemp As String
Dim sTemp1 As String
Dim Str As String
Dim Prom As String
Dim Prom1 As String
sTemp = "D:\capture\bad.txt"
sTemp1 = "D:\capture\good.txt"
FileHandle% = FreeFile
Open sTemp For Input As #FileHandle%
FileHandle1% = FreeFile
Open sTemp1 For Output As #FileHandle1%
While Not EOF( 1 )
Line Input #FileHandle%, Str
If InStr(Str, "^ZNU") Then
Prom = Str
Else
Prom1 = Str
Text2.Text = Prom & Prom1
'MsgBox Prom & Prom1
Print #FileHandle1%, Prom & Prom1
    End If
Wend
Close #FileHandle%
Close #FileHandle1%

End Sub
...
Рейтинг: 0 / 0
27.04.2006, 17:44
| Ответить | Цитировать | Написать  
Запись в файл с правильным форматом !!!
    #33695555
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Извиняюсь, полная чепуха !!!
Пишутся только строки с хвостиком ...
Вопрос остается открытый !
...
Рейтинг: 0 / 0
27.04.2006, 18:02
| Ответить | Цитировать | Написать  
Запись в файл с правильным форматом !!!
    #33696314
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Код: plaintext
1.
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.
Public Sub CorrectFormat()
    Dim hFile As Long
    Dim hFile2 As Long
    Dim strLine As String
    Dim strTemp As String
    Dim strBad As String
    Dim strGood As String
    Dim intPos As Integer
    Dim bln As Boolean
    
    strBad = "D:\1\bad.txt"
    strGood = "D:\1\good.txt"
    
    hFile = FreeFile
    
    Open strBad For Input As hFile
    
    hFile2 = FreeFile
    
    Open strGood For Output As hFile2
    
    Do Until EOF(hFile)
        Line Input #hFile, strLine
        
        intPos = InStr(strLine, "^ZNU")
        
        If intPos >  0  Then
            If bln Then
                Print #hFile2, strTemp
            End If
            strTemp = strLine
            bln = True
        Else
            If bln Then
                Print #hFile2, strTemp & strLine
                bln = False
            End If
        End If
    Loop

    Close hFile
    Close hFile2
End Sub
...
Рейтинг: 0 / 0
28.04.2006, 09:23
| Ответить | Цитировать | Написать  
Запись в файл с правильным форматом !!!
    #33698346
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Спасибо за отклик.
Попробую на следующей недели .
Уезжаю на время - не успеваю !!!

Еще раз СПАСИБО
...
Рейтинг: 0 / 0
28.04.2006, 18:01
| Ответить | Цитировать | Написать  
Запись в файл с правильным форматом !!!
    #33701036
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Спасибо, работает !!!
...
Рейтинг: 0 / 0
02.05.2006, 10:55
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запись в файл с правильным форматом !!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2165945]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 174ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 220ms
total:  466ms
созд. / загр.: 466ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]