Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Oznaczenie spacji
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004
Oznaczenie spacji

Mam pytanko proste, jak oznaczamy spację przy pisaniu kodu? Np. If "spacja" Then ...

28-10-2004 15:42
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Hmm:

If " " then

Ale powiedz dokładniej o co chodzi, bo z pytania wynika tylko to co wyżej, a myśle że nie o to chodziło.

[Post edytowany dnia 28-10-2004 16:23 przez bisiek]


_____________________________________________
www.mob.abc.pl - moja strona o VB

28-10-2004 16:22
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004

Chcę odczytywać dane z pliku zapisane w formacie:
1  2004-12-03  1,2,3,4,5,6,7
i zapisać do innego pliku w formacie:
1
2004-12-03
1,2,3,4,5,6,7

28-10-2004 18:47
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Spację zonaczamy tak jak napisał bisiek - " ".
Natomiast do zamienienia tego, co pokazałes o wiele lepiej będzie się nadawał taki kod:

sResult = Replace(sInput, " ", vbCrLf)


sInput to ten twój tekst, wynik trafi do sResult.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

28-10-2004 20:45
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004

Pewnie coś żle robię ale w sResult wychodzi mi to samo co sInput.
Open (App.Path + "\x.txt" For Input As #1
Line Input #1, sInput
sResult = Replace(sInput, " ", vbCrLf)
Close #1
Open (App.Path + "\xx.txt" For Append As #2
Write #2, sResult
Close #2

30-10-2004 07:03
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004

Może źle się wyraziłem ale przy odczycie z drugiego pliku (już po operacji)czyta to samo co z pierwszego
1 2004-12-02 1,2,3,4,5,6,7
a chciałbym żeby czytało:
Line Input - 1
Line Input - 2004-12-02
Line Input - 1,2,3,4,5,6,7
każdy wiersz oddzielnie

30-10-2004 07:54
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
leadass




Typ: neutral
Postów: 13
Zarejestrowany: Apr 2004
Czy o to Tobie chodziło ?

Private Sub Form_Load()
Dim sInput As String
Dim sResult As String
Dim strlinia As String
Dim strcalytekst As String
Dim intNrPliku As Integer
intNrPliku = FreeFile 'pobranie wolnego numeru plik

Open "C:\x.txt" For Input As #(intNrPliku)
Line Input #intNrPliku, sInput
sResult = Replace(sInput, " ", vbCrLf)
Close #intNrPliku
Open "C:\xx.txt" For Append As #(intNrPliku)
'To append powyżej powoduje że dane są dopisywane do pliku
Print #intNrPliku, sResult
Close #intNrPliku

Open "C:\xx.txt" For Input As #(intNrPliku)
  Do While Not EOF(intNrPliku)
    Line Input #intNrPliku, strlinia
    If strlinia <> "" Then
    strcalytekst = strcalytekst & strlinia & vbCrLf
    Else: End If
  Loop
Close #intNrPliku
Text1.Text = strcalytekst
'Dla przykładu umieszczam wynik w polu tekstowym
'Można ustawić właściwość multiline na true dla lekszego efektu
End Sub

Pozdrawiam
Bartek

30-10-2004 11:45
Pokaż profil leadass  Wyślij email do leadass   
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004

Dzięki Bartek ale dalej nie wychodzi , bo wyskakuje cały napis w Textboxie chodzi mi o to żeby odczytywać z drugiego pliku(xx) w ten sposób:
Line input- wyświetla- "1"
Line input- wyświetla- "2004-12-02"
Line input- wyświetla- "1,2,3,4,5,6,7"
Może być w trzech textboksach, albo do trzech zmiennych obojętnie.

30-10-2004 13:09
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Nie wiem o co Ci chodzi...

Nie wiem o co Ci chodzi... przecież Bartek podał Ci gotowca.

Wystarczy, że przy odczycie poszczególnych linii z pliku tekstowego będziesz wrzucał dane do poszczególnych tekstboksów lub jak sobie zażyczysz.

Pamiętaj, by wszystkie tekstboxy ponazywać:
TextBox1
TextBox2
TextBox3
...
TextBoxN, gdzie N jest kolejnym numerem



Open "C:\xx.txt" For Input As #(intNrPliku)
  Do While Not EOF(intNrPliku)
    i = i+1
    Line Input #intNrPliku, strlinia
    If strlinia <> "" Then
      Me.Controls("TekstBox" & i).Text = strlinia
    End If
  Loop
Close #intNrPliku
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

30-10-2004 14:22
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
leadass




Typ: neutral
Postów: 13
Zarejestrowany: Apr 2004

Ja też nie bardzo rozumiem o co ma chodzić w tym programie, a chciałbym Tobie pomóc. Trochę kod poprawiłem i robi to co chcesz; jest tablica kontrolek z trzech textboxów i w oparciu o funkcję split rozdziela do nich odpowiednie linie. Ale rozwiązanie masz już podane, więc jednak powiedz dokładniej o co chodzi jeśli chcesz by je też zamieścić.
Pozdrawiam
Bartek

30-10-2004 15:21
Pokaż profil leadass  Wyślij email do leadass   
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004

Dzięki za pomoc, Bartek jak możesz to podaj ten kod z fukcją split będę wdzięczny, zaczynam łapać o co chodzi. Pozdrawiam

30-10-2004 16:07
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
leadass




Typ: neutral
Postów: 13
Zarejestrowany: Apr 2004

Option Explicit
Private Sub Form_Load()
  Dim tekst() As String
  Dim i As Integer
Open "C:\x.txt" For Input As #(intNrPliku)
  Line Input #intNrPliku, sInput
  sResult = Replace(sInput, " ", vbCrLf)
  Close #intNrPliku
  Open "C:\xx.txt" For Append As #(intNrPliku)
  Print #intNrPliku, sResult
Close #intNrPliku
Open "C:\xx.txt" For Input As #(intNrPliku)
  Do While Not EOF(intNrPliku)
    Line Input #intNrPliku, strlinia
    If strlinia <> "" Then
    strcalytekst = strcalytekst & strlinia & vbCrLf
    Else: End If
  Loop
Close #intNrPliku

tekst() = Split(strcalytekst, vbCrLf)
For i = 0 To (UBound(tekst()) - 1)
Text1.Item(i) = tekst(i)
Next i
End Sub

30-10-2004 16:28
Pokaż profil leadass  Wyślij email do leadass   
zbyszekxv




Typ: neutral
Postów: 39
Zarejestrowany: Mar 2004

Bingo zadziałało wielkie dzięki.
Pozdrawiam

30-10-2004 21:17
Pokaż profil zbyszekxv  Wyślij email do zbyszekxv   
Wszystkich odpowiedzi: 12 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1