Save As help

Zdraweite predi da zapo4na iska da wi kaza 4e o6te sam mnogo zelen w programiraneto zatowwa molia da ne me oprekwate mnogo.Imam edin problem pi6a rabotia nad edin tekstowi redaktor i iskam da go nakaram da zapazwa doc. vav .TXT .Zasega sam izkaral samo edin standarten prozorec Save As nokogato natisna butona Save se zagasia i nezapametiava faila.
eto i samia KOD
---------------------------------------------------------------------------------------------------------

Private Sub mSave_Click()

   Dim WhatFile As String

      CommonDialog1.Filter = "Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*"

      CommonDialog1.FilterIndex = 1

      CommonDialog1.ShowSave

   WhatFile = CommonDialog1.FileName

End Sub

---------------------------------------------------------------------------------------------------------


(Корекция: Тагове на текста, за да не се размества кода. Щирлиц)

Та значи, писах ти във клуба на Data.bg. Както вече обяснихме там, в този код ти просто не правиш запис на файла. За да можем да помогнем - постни и кода, в който правиш записа, ако има такъв. Също така описание на променливите, и къде са декларирани те.

----------------------------------
помислих, хареса ми, помислих пак...

Wse o6te niama takav kod vav koito se prawi zapis.Nadiavam se da mi podskajete malko kak da go napravia (ako e vazmojno) ako niakoi jelae da mu pokaza ili dam celia proekt (toi e s golimina 48kb) da mu go dam na e-mail.Promenliwata e samo edna WhatFile i e na globalno nivo

Значи става така:

Private Sub cmdSave_Click()

  Dim strFileName as string       'Променлива за името на файла

  On Error Goto EndSub

  Common1.CancelError = True

  Common1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"

  Common1.ShowSave

  strFileName = Common1.FileName



  Open strFileName for Output As #1

    Print #1, strText         'strText е променливата със съдържанието на файла

  Close #1



EndSub:

End Sub

е, понякога трябва да се направят и доста повече проверки и т.н., но това е в най-общо линии.

----------------------------------
помислих, хареса ми, помислих пак...

Работата с файлове в Бейсик е нещо съвсем лесно.

Вариант 1
Open FileName For Input as #1
за четене, или
Open FileName For Output As #1
за запис

четенето от файла става с Input #1, strText
но обикновено това ще доведе до прочитане на съдържанието до следващата намерена запетая или нещо подобно беше.. просто не ползвам този метод, тъй като не може да служи за много работи.

четене така: Line Input #1, strText
по този начин ще бъде прочетен цял ред от текстов файл.

Записа става със: Print #1, strText
При току-що отворен файл, ако е съществувал вече файл с такова име - той се изтрива.


Вариант 2
Open FileName For Binary As #1

при този вариант във файла може да се чете и пише, като се посочва от кой байт да започне четенето или писането, и се чете или записват толкова байтове, колкото е дълга променливата която се използва.
Четене: Get #1, начало, strText
ако трябва да прочетем първите 10 байта от файла:

strText = space(10)
Get #1, 1, strText

Записването пък е по същия начин, но с:
Put #1, 1, strText
но ако отваряш файла така, а вече съществува такъв файл - то съдържанието му се променя, като ако старото съдържание е с по-голяма дължина, то края ще се запази.


...
хайде останалото утре, че стана късно.

----------------------------------
помислих, хареса ми, помислих пак...

Ami wiz Щиpлиц az doniakade namerih re6enie na problema (po4iti go re6ih se pak iskam i az da se potrudia malko ) sas slednia kod
---------------------------------------------------------------------------------------
Private Sub mSave_Click()
Dim WhatFile As String ' promenliva na globalno niwo
CommonDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowSave
WhatFile = CommonDialog1.FileName
Open WhatFile For Output As #1 ' Open file for output.
Write #1, Text1 ' Write comma-delimited data. 'Text1 name na textowo pole
Write #1, ' Write blank line.

Close #1 ' Close file.
End Sub
----------------------------------------------------------------------------------------
Nadiavam se 4e ako imam dr. problemi 6te moga da se obarna za poomo6t tuk

Разбира се че можеш. ;о)

----------------------------------
помислих, хареса ми, помислих пак...

Щиpлиц Дотук добре много сам ти благодарен за помоща.
Знам че ставам малко нахален но ако можеш да ми дадеш някой примерче за следният проблем ще ти бада много благодарен
Значи искам когато селектирам проиволен теьт (от теьтовото поле) да мога да му сменя шрифта (само на селектирания текст).Сега като му задам размер и шрифт целият текста(и не селектирания) се променя .

Ами това още по-добре, но трябва да знаеш по спецификация че TextBox може да съдържа само един шрифт, с еднаква големина. Ралични шрифтове в един контрол се поддържа от RochTextBox контрола, който обикновено е като външен OCX контрол, и трябва да го добавиш към проекта. После следваш неговата спецификация. ;о)

enjoy...

----------------------------------
помислих, хареса ми, помислих пак...

Щиpлиц можеш ли да ми кажеш Точното имме на Компонета (във VB6) кадето се садаржа Този контрол (RochTextBox)

richtx32.ocx

----------------------------------
помислих, хареса ми, помислих пак...

Слушай, пич, понеже гледам, че си тръгнал да преоткриваш топлата вода, затова реших да те насоча.
Значи правиш следното:
Стартираш VB и по принцип ще ти се отвори New Project прозореца, отиваш на Tab-а New и избираш "VB Application Wizard".
След като ти се появи "Application Wizard" прозореца натискаш бутона "Next>" и след това бутона "Finish", който междувременно е станал активен.
И вече имаш полуготов текстов редактор, който почти съм сигурен - ще има по-големи възможности от твоя, а ще ти отнеме максимум 1 мин, за да го направиш. Е, вярно някои бутони няма да работят, но все пак нали нещо трябва да остане и на тебе да понапишеш

Бии, за да те уважават!

Е Вярно че сам много зелен още ама никой не се е родил научен.Трудно се учи програмен език само с помоща на една книга.Ааа и относно Application Wizard знамго но това валбще не е авторско плюс това несмятам че така ще усвоя VB по лесно.

Благодаря ти (знам че ствам смешен и банален) пак ми спаси положението