Någon som kan förklara lite hur detta ska gå till.
Har en htm fil eller en text fil som ser ut så här.
1 Agrest, Evgenij SWE 2563 2691 7 39.0 41.25 43.0
2 Lalic, Bogdan ENG 2522 7 36.0 39.00 40.5
3 Wedberg, Tom SWE 2529 2631 7 35.0 35.25 35.5
4 Popov, Valerij RUS 2578 7 33.5 37.25 38.5
5 Nataf, Igor FRA 2535 2526 6.5 36.5 38.25 42.0
6 Rowson, Jonathan SCO 2512 6.5 35.0 34.00 38.0
7 Volzhin, Alexander RUS 2521 6.5 34.5 35.50 39.5
8 Khenkin, Igor GER 2572 6.5 34.0 34.25 38.0
9 Mc Shane, Luke ENG 2531 6.5 34.0 32.75 37.5
10 Hector, Jonny SWE 2528 2568 6.5 34.0 31.75 37.5
Nu vill jag på ett enkelt sätt bara transportera allt detta till en accessfil.
Vill gärna ha allt staplat så säga i accessfilen. I detta fall är det 9 fält med nr som första.
Använd Replace för att skapa semikolonseparerad sträng av hela
Replace(strTextmassa, " ", ";")
Sen kan du använda FileSystemObject för att spara strängen som en textfil, denna kan du sedan importera till Access. Tabellen ökar dock med ytterligare ett fält (dvs olika fält till för- och efternamn), men det ska väl inte ställa till bekymmer. Du kanske även får ta bort kommatecknen med Replace(str, "," "") om du inte vill ha dom efter efternamnen.
En lösning, det finns ju flera sätt. Tex kan du ju skapa en dynamisk array med Split(), och sen gå igenom hela arrayen med en räknare som skapar en ny rad efter t ex 10 poster. Ubound håller koll på arrayens längd.
x = 0
Do UNTIL X = Ubound(Array)
' stoppa in data i tabellen
RS("Nr") = Array(x)
RS("Enamn") = Array(x+1)
RS("Fnamn") = Array(x+2)
osv...
IF X/10 = 1 then RS.Addnew
x = x + 1
Loop
Det finns det säkert, vad har du fått ihop själv? Ska du köra denna kod flera gånger, eller är detta en engångssak; isåfall finns det program som fixar detta. Föredrar du asp?
Dessutom, frågan är om du inte kan importera filen direkt i access; mellanslag går fint att dela strängar på också.
Mmm. Har kommit på ett koncept som jag har missat.
Läste lite ang. importering av text fil till access. Och det går bra om det är 1 mellanslag. Jag hade 3 st och 4 st ibland. Då fungerar det inte som det ska.
Men nu har jag löst det.
299 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
