|
| Autor |
Nachricht |
tolio
Newbie
Anmeldedatum: 08.06.2008
Beiträge: 13
|
Ressource wie Datei einlesen
Verfasst am: 05.11.2010, 23:03 |
|
|
Ich habe eine liste die ich in meinem Programm benötige die lese ich wie folgt ein:
| Code: | Open App.Path & "\db.txt" For Input As #ff
While Not EOF(ff)
Line Input #ff, strline
linecount = linecount + 1
ReDim Preserve sLines(linecount)
sLines(linecount) = strline
Wend
Close #ff |
nun will ich aber die liste nicht immer mit geben und wollte sie halt als Ressource hinzufügen,
aber wie kann ich die liste dann wieder in das string array schreiben?
Am liebsten wäre mir das ganze ohne einen drop zu machen da bei viele av dann schon die alarmglocken klingen und das programm wahrlich nicht schlecht ist. Kann mir da jemand weiter helfen?
Danke schonmal im vorraus.
MfG |
|
| |
|
 |
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 06.11.2010, 09:36 |
|
|
das würden gerne so viele...
aber ist nicht so leicht
als ressource kannst eine datei nur im entwurf hinzufügen
also vor dem compilieren...
ABER
andere möglichkeit ist
du suchst nach filebinder codes
damit kannst das mchen 
nachteil
jeder vierenscanner schreit!!!!
lg |
|
| |
|
|
tolio
Newbie
Anmeldedatum: 08.06.2008
Beiträge: 13
|
Verfasst am: 06.11.2010, 09:41 |
|
|
| kann ich nicht irgendwie einfach die 101 custom Ressource in nen string packen und dann bei vbcrlf splitten und das dann ins array packen? |
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 06.11.2010, 15:40 |
|
|
ja sicher kannst das
aber du willst doch deine datenbank verändern und dann wieder in die exe einfügen oder??
dann kommst mit den ressourcen nicht weit |
|
| |
|
|
tolio
Newbie
Anmeldedatum: 08.06.2008
Beiträge: 13
|
Verfasst am: 07.11.2010, 14:59 |
|
|
könntest du mir die paar zeilen mal schreiben, da ich es gerade einfach nicht hinbekommen 
das mit dem update der db muss ich nochmal drüber nachdenken wie ich das umsetzte aber schonmal danke für die anregung |
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 08.11.2010, 08:26 |
|
|
hi
Da hast einen Filebinder Code schau ihn dir mal an...
ich hab ihn mir nicht angesehen weis daher auch nicht ob der zu gebrauchen ist
ansonsten was vl einfacher wäre
wenn du die db.txt auf deinen ftpserver lädst und
sobald das prog gestartet wird läder es die db.txt runtern und liest sie ein
beim beenden ... wird datei wieder ins netz gestellt
lg |
|
| |
|
|
tolio
Newbie
Anmeldedatum: 08.06.2008
Beiträge: 13
|
Verfasst am: 08.11.2010, 14:43 |
|
|
danke aber mir ist schon bekann wie nen filebinder funktioniert aber meine kleinen db muss nichtmal verändert werden die muss nur dem programm zu verefügung stehen, deswegen finde ich das downloaden bei 50kb unnötig ist...
geht das nicht doch irgendwie wie ich mir das vorgestellt habe? |
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 08.11.2010, 16:01 |
|
|
dann nimm einfach deinen ressourcen editor her und füge dort deine strings aus der datenbank ein
wusste ja nicht dass du nichts verändern willst/musst |
|
| |
|
|
tolio
Newbie
Anmeldedatum: 08.06.2008
Beiträge: 13
|
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 09.11.2010, 08:00 |
|
|
bitte verschwende nicht soviel zeit damit
wenns nicht so funktioniert wie du es dir vostellst dann machs anders
dim strDB() as string
strDB(0) = "erste zeile deiner datei"
strDB(1) = "zweite zeile deiner datei" |
|
| |
|
|
tolio
Newbie
Anmeldedatum: 08.06.2008
Beiträge: 13
|
Verfasst am: 09.11.2010, 18:16 |
|
|
ich hab grad durch zufall was gefunden;
Public Function ByteArrayToString(bytArray() As Byte) As String
Dim sAns As String
Dim iPos As String
sAns = StrConv(bytArray, vbUnicode)
iPos = InStr(sAns, Chr(0))
If iPos > 0 Then sAns = Left(sAns, iPos - 1)
ByteArrayToString = sAns
End Function
das funtkioniert auch nur das plötzlich vor dem string 3 merkwürdige zeichen auftauchen: http://www.imagebanana.com/view/phfh9sfh/CrazyShot_3.png |
|
| |
|
|
Registrieren
Login
