 |
Coders' city
Nasza pasja to programowanie!
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
samolot
Dołączył: 26 Sty 2006
Posty: 8376
Skąd: Toru?
|
 Wysłany: Nie Gru 02, 2018 10:29 pm Temat postu: |
  |
|
1. A sprawdza?e? czy w?a?ciwo?? Exists zwracana z GetFileInfo na warto?? True?
2. Ani ?cie?ka ani nazwa pliku nie powinna zawiera? znaków steruj?cych przej?cia do nowej linii. Za?ó?my, ?e z jakiego? powodu si? tam znalaz?y. Jednak gdy si? ogl?da okiem zapis takiego stringa w polu tekstowym, to takich znaków nie wida?. Je?li s? to w polu tekstowym wygl?da to jak spacja, ale spacj? nie jest.
Czy takie znaki s?, mo?na sprawdzi? tak:
| Kod: |   Dim Szukany as String = VBNewLine
 Dim Poz As Integer = Instr(pathAndFileName, Szukany)
|
Je?li zwracana liczba jest zerem to szukanego ci?gu nie ma, a je?li znajdzie szukamy ci?g to funkcja Instr() zwraca numer znaku od którego zaczyna si? szukany ci?g
albo tak:
| Kod: | Dim NowaSciezka1 As String = "Katalog\" & vbNewLine & "NazwaPliku"
Dim NowaSciezka2 As String = "Katalog\" & "NazwaPliku"
 Dim Tablica1() As String = NowaSciezka1.Split(vbNewLine)
 Dim Tablica2() As String = NowaSciezka2.Split(vbNewLine)
|
Tablica1() b?dzie zawiera?a 2 elementy, bo NowaSciezka1 zosta?a podzielona na dwa elementy wzgl?dem separatora VBNewLine
Tablica2() b?dzie zawiera?a jeden element, bo zmienna NowaSciezka2 nie zawiera w sobie znaków przej?cia donowej linii
_________________
Nie zadawaj bezcelowych pyta? / Windows 8.1 / Windows 10 / VB2008 / VB 2010 / VB 2012 / Pisz poprawnie |
|
| Powrót do góry |
|
 |
|
|
Grzegorz123
Dołączył: 27 Cze 2017
Posty: 188
|
| Wysłany: Pon Gru 03, 2018 10:32 am OP Temat postu: |
|
|
| Nie sprawdzi?em jeszcze jednego prostego przypadku. Ca?? ?cie?k? wpisz? r?cznie w zmienn? i zobaczymy co si? stanie. Oczywi?cie Twoje opcje te? sprawdz?. Niestety dopiero wieczorem. Dzi?kuj?. |
|
| Powrót do góry |
|
|
samolot
Dołączył: 26 Sty 2006
Posty: 8376
Skąd: Toru?
|
| Wysłany: Pią Mar 08, 2019 11:39 am Temat postu: |
|
|
Tak z czystej ciekawo?ci zapytam: znalaz?e? przyczyn? tego problemu?
_________________
Nie zadawaj bezcelowych pyta? / Windows 8.1 / Windows 10 / VB2008 / VB 2010 / VB 2012 / Pisz poprawnie |
|
| Powrót do góry |
|
|
samolot
Dołączył: 26 Sty 2006
Posty: 8376
Skąd: Toru?
|
|
| Powrót do góry |
|
|
|
|
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Możesz dodawać załączniki na tym forum
Możesz pobierać pliki z tego forum
|
Debug: strone wygenerowano w 0.20897 sekund, zapytan = 11
|
Pomoc
Szukaj
Użytkownicy
Grupy
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
