VFP自定义函数StringFormat (仿.NET String.Format 方法)
VFP仿.NET String.Format 方法
将指定字符串中的每个{x}替换为相应值,并返回文本
*-- 调用格式 StringFormat("日期{2},字符{1}","TAB",{^2013-01-01})
Function StringFormat
Parameters cText,Parameter1,Parameter2,Parameter3,Parameter4,Parameter5,Parameter6,Parameter7,Parameter8,Parameter9,Parameter10
Local _tokens As Collection,cEndText As String,nCount As Integer,cName As String,oTokenParser As Object
Local oPara As Collection
cEndText=""
If Vartype(cText) <>"C"
Return .T.
Endif
*--创建集合
oPara=Createobject("Collection")
For nCount=1 To 10
cName ="Parameter"+Alltrim(Str(nCount))
oPara.Add(&cName)
Endfor
oTokenParser =Createobject("TokenParser")
oTokenParser .ParseTemplate(cText)
nCount=1
For Each token In oTokenParser ._tokens
If Like("{*}",token)
*--判断{}是否符合要求
cTmp=Substr(token,2,Len(token)-2)
If Isdigit(cTmp) And Val(cTmp)<=10
cVal=oPara.Item(Val(cTmp))
Do Case
Case Vartype(cVal)=="C"
cEndText = cEndText +cVal
Case Vartype(cVal)=="L"
cEndText = cEndText +Iif(cVal==.T.,".T.",".F.")
Case Vartype(cVal )=="N"
cEndText = cEndText +Alltrim(Str(cVal))
Case Vartype(cVal)=="D"
cEndText = cEndText +"{^" +Dtoc(cVal)+"}"
Case Vartype(cVal)=="T"
cEndText = cEndText +"{^" +Ttoc(cVal)+"}"
Endcase
nCount = nCount + 1
Endif
Else
cEndText = cEndText + token
Endif
Endfor
Return cEndText
Endfunc
#Define LABEL_OPEN_CHAR = '{'
#Define LABEL_CLOSE_CHAR = '}'
Define Class TokenParser As Custom
_tokens=.F.
_temp=""
_currentMode=.F.
_lastMode=.F.
Procedure Init
Local tty As Collection
tty=Createobject("collection")
This._tokens=tty
Endproc
Procedure EnterMode
Lparameters mode
*-- 当状态改变的时候应当保存之前已处理的寄存器中的内容
If Len(This._temp) > 0
This._tokens.Add(This._temp)
This._temp=""
Endif
This._lastMode =This._currentMode
This._currentMode = mode
Endproc
Procedure LeaveMode
If Len(This._temp)> 0
This._tokens.Add(This._temp)
This._temp=""
Endif
*--因为只有两个状态,因此
This._currentMode = This._lastMode
Endproc
Procedure ParseTemplate
Lparameters template
For i=1 To Len(template)
c=Substr(template,i,1)
Do Case
Case c=LABEL_OPEN_CHAR
This.EnterMode(1)
&&将当前字符压入寄存器,同样的代码在三个分支都出现了
&& 请留意这行代码出现的时机
&&在不同的状态下可能出现不同的处理过程
This._temp = This._temp + c
Case c=LABEL_CLOSE_CHAR
&& 将当前字符压入寄存器
This._temp = This._temp + c
&& 因为本例只有两个状态,因此这里相当于:_EnterMode(ParserMode.LeaveLabel)
&& 但是为了区别一下,我还是定义了两个方法来实现
This.LeaveMode()
Otherwise
This._temp = This._temp + c
Endcase
Endfor
Endproc
Enddefine
VFP自定义函数StringFormat (仿.NET String.Format 方法)的更多相关文章
- php示例代码之类似于C#中的String.Format方法
php示例代码之类似于C#中的String.Format方法 原文来自于 http://stackoverflow.com/questions/1241177/c-string-format-equ ...
- 避免string.Format方法的装箱
我们知道,使用string.Format方法可能会存在装箱的情况.比如如下: static void Main(string[] args) { string s = string.Format(&q ...
- 通过Oracle函数SQL实现C# String.Format字符串格式化功能
语言国际化要求,开发上要求Oracle数据库SQL中对应的返回信息-Message,实现一个通用函数调用,比如:提示信息内容:条码123456当前工站在FCT!”,即通用的信息内容格式化标准为:“条码 ...
- JAVA String.format 方法使用介绍
1.对整数进行格式化:%[index$][标识][最小宽度]转换方式 我们可以看到,格式化字符串由4部分组成,其中%[index$]的含义我们上面已经讲过,[最小宽度]的含义也很好理解, ...
- JAVA String.format 方法使用介绍<转>
在JDK1.5中,String类增加了一个非常有用的静态函数format(String format, Objece... argues),可以将各类数据格式化为字符串并输出.其中format参数 ...
- Javascript中的String.format方法实现
<script type='text/javascript'> String.format = function() { var s = arguments[0]; for (var i ...
- Java String.Format() 方法及参数说明
转自:https://blueram.iteye.com/blog/441683 JDK1.5中,String类新增了一个很有用的静态方法String.format():format(Locale l ...
- 如何在string.Format()方法中输出大括号
在string.Format参数中,大括号{}是有特殊意义的符号,但是如果我们希望最终的结果中包含大括号({}),那么我们需要怎么做呢?是”\{”吗?很遗憾,运行时,会给你一个Exception的!正 ...
- Java中利用MessageFormat对象实现类似C# string.Format方法格式化
我们在写C#代码的时候常常会使用到string.Format("待格式化字符串{0},{1},....",参数1,参数2,...),来格式化字符串,特别是拼接字符的时候,这种方式使 ...
随机推荐
- [转]Installing python 2.7 on centos 6.3. Follow this sequence exactly for centos machine only
Okay for centos 6.4 also On apu.0xdata.loc, after this install was done $ which python /usr/local/bi ...
- JavaServer Faces 2.0 can not be installed解决方案
问题描述:maven项目出现如下错误 JavaServer Faces 2.0 requires Dynamic Web Module 2.5 or newer..Maven Java EE Conf ...
- 常用SQL语句
一.基础 1.说明:创建数据库 CREATE DATABASE database-name 2.说明:删除数据库 drop database dbname 3.说明:备份sql server --- ...
- Django 之 ForeignKey、ManyToMany的访问方式
1.ForeignKey 情况I: from django.db import models class Blog(models.Model): pass class Entry(models.Mod ...
- tomcat 9.0配置管理员用户名和密码
登录后,可以管理查看发布网站的信息,岗安装好的tomcat是没有管理密码的,可以在配置文件中修改. 在conf/tomcat-users.xml的文件中修改配置,默认的角色用户是被注销掉的.我去掉注释 ...
- poj 1806 Manhattan 2025
点击打开链接 题目大意就是给定一个最大歩数,让你输出你在三维的空间中可以到达的位置的切片,注意当歩数大于9的时候就不需要输出了! #include<stdio.h> #include< ...
- 动手学servlet(五) 共享变量
1. 无论对象的作用域如何,设置和读取共享变量的方法是一致的 -setAttribute("varName",obj); -getAttribute("varName&q ...
- 使用Maven加载项目有Dubbo框架时出现的常见异常情况
异常描述: The matching wildcard is strict, but no declaration can be found for element 'dubbo ...
- PD脚本导出到数据库后没有注释问题
昨天PD里建了几张表,建表的时候我在NAME栏位写了中文说明,但是脚本在数据库里生成表以后,发现中文说明没有了,需要自己在“注释”栏位添加才行,如下图: 我想要达到的效果如下图: 解决方法: 1. ...
- 单例设计模式全局缓存accessToken
使用微信JS-SDK开发的小伙伴们,看文档经常会看到这样一句话:(下面是微信开发文档的一部分原话截图) 这句话就是:开发者必须在自己的服务全局缓存access_token,jsapi_ticket 下 ...