Sviluppatori 4D

• Alfanet srl
• Assocons srl
• Codi srl
• Eskimo srl
• Infosu srl
• Megalink
• MG Softwaring sas
• Micromatica srl
• Mindsoft
• Nexid srl
• PCA Italia snc
• Quickfox
• Rinascita Informatica
• Sica-it
• Studio Garavini

Utility 4D

• A dog and his boy
  lapd component
• Aparajitaworld
  Active4d, objecttools
• BBSP
  logTools, BBBase
• BusinessKube
  4D Job wallet
• Hmplugins
  Hmcal, Hmreports, Hfree
• Internet Toolkit
• Math4D
  free math library
• Nexid Web Service Server
• Nufocus
• OpenRoadDevelopment
  CodeAnalysis free component
• Orchard Software
  win32api, resource editor
• Pelican Engineering
  EXT/JS appbuilder, Remoting
• SGBD Products software
  TransportX, 4diTools
• Association Qualisoft
  QS_Toolbox

Risorse 4D

• 4D Github
• 4D Pdo
• 4D Sources
• 4dgeek Github
  tinynce, json editore
• Bluecompany
  Graph, Calendar
• E-node
  AreaList Pro, SuperReport Pro
• Escape
  qpix, DICOM Medical Viewer
• Foundation Shell
• Inforce
  UpdateMaker, Inside4d, Zip4d
• Keisuke Miyako
• Microbizz
  4D CAD plugin
• Pluggers
  ApiPack, PDFViewer, LDAP, MD5
• Ronri-kobo
  F-ab, JExternal

Naviga:

Titolo: Metodo EliminaSpazi *

Categoria: Codice

Ultimo Aggiornamento: 12/01/09

  `Nexus srl 12-5-04
    `toglie gli spazi all'inizio e alla fine
C_STRING(255;$str_s)
C_STRING(1;$spc_s)
C_LONGINT($first_l;$last_l)
$str_s:=$1
$spc_s:=Char(32)
If ($str_s#"")
  $first_l:=1
  $last_l:=Length($str_s)
  While (($first_l<$last_l) & (Substring($str_s;$first_l;1)=$spc_s))
    $first_l:=$first_l+1
  End while
  While (($last_l>=$first_l) & (Substring($str_s;$last_l;1)=$spc_s))
    $last_l:=$last_l-1
  End while
  $str_s:=Substring($str_s;$first_l;$last_l-$first_l+1)
End if
$0:=$str_s

Nota: ho dovuto sostituire l'indicizzazione del carattere $str_s[[$last_l]] con il più solido Substring, perché anche se è corretto formalmente nel caso in cui arrivasse a zero l'ultimo carattere (ad esempio, $1 = " ") la condizione del while dà un errore sulla versione v11.

Inviato da: Umberto Migliore

Visite: 16973

Se accedi con utente e password, puoi aggiungere dei commenti.

---

Accesso

User:
Pass:	Accedi

---

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

• 4D Blog
• 4D Italia
• 4D Francia
• 4D Knowledgebase 2.0
• 4D US
• 4D Partner Central
• 4D Store - Le proprie Licenze
• 4d su Wikipedia Italiana
• 4D su Youtube
• FTP Pubblico 1
• FTP Pubblico 2
• Pagina Sviluppo4d su Facebook
• Wakanda

4D Discussioni

• 4D Blog
• 4D Forum
• 4D Method User Group
• 4D Today
• Blog Slicksurface

Faq random

• Generazione automatica del file Sitemap.xml
• 4D 2004 - Proprietà delle ListBox: Number of Static Columns
• Due modi di eseguire una query SQL via ODBC
• 4d e Mountain Lion
• Calcolo del checksum per il protocollo MODBUS
• Ottenere l'ora di modifica dei file su server FTP
• Disabilitare il Range checking solo in una parte di codice <!--4DLOOP wb_getRandomFAQ--> : Inadequate hardware to do this.

Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
329 utenti registrati