Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


lägga till "us"

Postades av 2001-01-24 08:21:00 - Johan Hjort, i forum visual basic - allmänt, Tråden har 5 Kommentarer och lästs av 691 personer

Hur gör jag för att lägga till "us" efter varje ord en en textbox?
Jag vill också att man ska kunna ta bort "us" om det finns.

/Hjorten


Svara

Sv: lägga till

Postades av 2001-01-24 09:14:00 - Johan Idstam

Lägga till:

if right$(text1.text,2)<>"us" then
text1.text=text1.text & "us"
end if


Ta bort:

if right$(text1.text,2)="us" then
text1.text=left$(text1.text,len(text1.text)-2)
end if


/johan/


Svara

Sv: lägga till

Postades av 2001-01-25 12:37:00 - Johan Hjort

Koden lägger bara till us i det sista ordet inte alla, vilket jag vill.
Hur gör jag?

/Hjorten


Svara

Sv: lägga till

Postades av 2001-01-25 13:24:00 - Andreas Hillqvist

Här ett exempel som fungerar i vb6 eller senare.
Gör också en alfanumerisk test som kontrolerar att "orden" innehåller bokstäver.

Private Function MakeUSString(Text As String) As String
Dim Words() As String
Dim Index As Integer
Dim Word As String

Words = Split(Text, " ")

For Index = LBound(Words) To UBound(Words)
Word = Words(Index)

If LCase$(Word) <> UCase$(Word) Then
Words(Index) = Word + "us"
End If
Next

MakeUSString = Join(Words)

End Function

Private Function CleanUSString(Text As String) As String
Dim Words() As String
Dim Index As Integer
Dim Word As String

Words = Split(Text, " ")

For Index = LBound(Words) To UBound(Words)
Word = Words(Index)

If Right$(Word, 2) = "us" Then
Words(Index) = Left(Word, Len(Word) - 2)
End If
Next

CleanUSString = Join(Words)

End Function


Svara

Sv: lägga till

Postades av 2001-01-25 19:07:00 - Johan Hjort

Jag har VB5, kan du fixa nån kod som funkar till den versionen.

/Hjorten


Svara

Sv: lägga till

Postades av 2001-01-25 23:07:00 - Andreas Hillqvist

Lite får du allt göra själv... :O)

Varför inte upgradera till vb6?


Svara

Nyligen

  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant
  • 19:13 Международная перевозка грузов

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 889
27 965
271 778
993
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies