‹‹ 上一主題 | 下一主題 ››
發新話題
打印

將 csv 加上 ""

segaa

管理員

Rank: 9Rank: 9Rank: 9
1# 大 中 小 發表於 2008-3-23 07:05 PM  只看該作者

將 csv 加上 ""

複製內容到剪貼板
代碼:
procedure TForm1.Button1Click(Sender: TObject);
VAR sFile:TextFile;
tmp,str:String;
ipos,x:integer;
begin
memo1.Clear ;
tmp := '';
str := '';
x := 0 ;
ipos := 1 ;
OpenDialog1.Execute;
if OpenDialog1.FileName <> '' then
begin
AssignFile(sFile, OpenDialog1.FileName);
Reset(sFile);
while not Eof(sFile) do
begin
str := '' ;
Readln(sFile, tmp) ;
ipos := 1 ;
while ( ipos > 0) do
begin
iPos := Pos(',',tmp); //傳回逗號(,)字串於str字串的開始位置
if iPos = 0 then
begin
str := str + '"' + copy (tmp ,1,length(tmp) )+'"';
break
end else begin
str := str + '"' + copy (tmp ,1,ipos-1 )+'",';
tmp := copy (tmp,ipos+1,length(tmp));
end;
end;
inc(x);
memo1.Lines.Add(str);
end ;
CloseFile(sFile);


end;
end;
程式不是很漂亮 3 l* N% w' n8 u5 g
大概是這樣嚕  , 其實如果不需要回寫的話
9 i3 o* Q# m: s+ b4 P/ l5 ]% Z直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

Rank: 1
2# 大 中 小 發表於 2009-9-6 03:52 AM  只看該作者

漫山都是绿树

　春天,家乡的小山上漫山都是绿树，别提有多美了！看：神鬼传奇柳树、杨树、松树、苹果树、梨树……，满眼的绿意。尤其是柳树，抽出嫩绿的新芽，长出了长长的大辫子。地下城与勇士一阵风吹来，长长的辫子摇来摇去，好象是让人欣赏她呢！小草从土里钻出来，毛茸茸的绿色，给小山穿上了美丽的裙子。我们躺在它身上，象躺在母亲的怀抱中，温暖惬意。; Q! n( a8 B) x; w. L! A! K8 ]
　　夏天，树木变得愈加茂盛成吉思汗满山绿树成荫。山上的小野花开了各式各样、芬芳扑鼻，给绿色的小山点缀上了缤纷的色彩。牛羊在山上悠闲地吃着草，吃饱了就卧在山坡上休息，给小山更增添了一丝光彩。) O6 F- D/ R, _; @  \9 J
　　秋天，嫩绿的小草逐渐发黄了，华夏树木的颜色也慢慢地由绿变黄。但是，小山却也别有一番风景。看！山上的一树树灯笼，红彤彤的是苹果树上的累累果实，黄澄澄的是梨，压得枝条都弯了腰。摘下一只，吃到嘴里，真甜呀！乡亲们带着笑意，采摘着丰收的果实，心里别提有多高兴了！一筐筐，一篓篓的水果成吉思汗带着乡亲们的希望，运出山，走向各地。

TOP

e23232w

新手上路

Rank: 1
3# 大 中 小 發表於 2009-9-9 04:59 PM  只看該作者

薯条工作站,肯德基麦当劳专用机

大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-84820855/ S8 D3 }$ c7 x7 Q5 o% T
QQ:99792190 44984055. # c; o" n- C- Z
薯条工作站,肯德基麦当劳专用机精品推荐) ~! u0 s; }! V$ f  h

4 ~; W0 w; G9 p4 @+ s' |6 U/ k商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
! ?  Y) _/ v4 E6 ?3 F# C8 _ 商品参数
& t( G, o/ h$ h
  • 商品名称：薯条工作站,肯德基麦当劳专用机
  • 商品关键字： 薯条工作站, 肯德基麦当劳专用机
  • 商品品牌：大连科信
  • 商品型号：商用
  • 商品等级：精品
  • 市场价格：￥1550元
  • 剩余数量：203台
  • 关 注 度： 31233

( T) g1 m+ w( [. C- i6 S% z 详细说明" X$ z0 b8 s, Y# Z/ }$ \
! w/ ]( ^- e( ?$ [

3 Y3 N  N5 v4 P3 a0 n1 B


' I; \$ c  b& C' {! R& f) d

               

                  

台式薯条工作站

; w5 F4 o" G# U: S8 I$ F- x& j

型号:ST-01


/ f2 C8 |  J. c$ t& T

保温：红外线保温


# \- ?8 }9 L2 D+ z/ y% F

型号：KX-JG-1


- Y% N# K# c9 V7 K( z3 R  \: }

规格：800x710x650mm


/ ?2 ]* O! j8 g: h$ e' y# e; t

电压：220V


- _9 p# {& B- q3 R& g1 A

功率：0.6KW

- \9 x+ T/ k7 k

价格：1550元            

* O2 \* n# `) q& Q

5 X; ]. s1 v4 F& Y' i& A

                  . }. w6 q7 |9 \7 u$ k2 h

立式薯条工作站

+ i$ p! k* u2 E  S; R% s% a8 n4 {

型号: ST-02

% i. i# c/ i2 j, ]$ l$ L0 j

保温：红外线保温


' q# q# h. V& L( _+ s2 p. i8 f; l

型号：KX-JG-2

: n) {. j7 Z9 }$ c% N% d

规格：1000x700x1570mm


! k6 h1 m/ X$ O# r0 m- L- @

电压：220V

/ Y, V2 X$ ~# o6 z) ?" t+ K9 H) O

功率：0.75KW

( }: `# o6 {/ H; B8 F8 u: K

价格：3980元           


% |$ O- A1 }& }3 j  |  a9 F5 G


- S/ j9 c: A; p2 Y

TOP

青松智慧

新手上路

Rank: 1
4# 大 中 小 發表於 2009-9-25 05:32 AM  只看該作者

开学了,学校周边的房价上涨,好多房屋忙着改造!

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!+ v. x$ l0 B; l/ o

1 ?- o5 g! u2 S2 d- z5 t
' U; c* ?4 W& t& W  uwww.okdhc.cn+ `2 l- Q+ A5 R: {$ V
. R* S, q9 p# ^: z  Q+ k; \
: n$ A' u! r9 E- d
5 s. [" L; @* y
- }3 ]: J& U' B' x7 s

# ~' v) R7 i, H  s5 U, G# f- c# o( M' }6 P  q+ l. F

( F, X) B7 m9 K' a- h+ E
! J4 R. Y2 B" C2 H4 C8 y. |7 s. A% ]  g& T, |" ^, h3 n
魔兽世界插件  热血江湖外挂   传奇外传外挂
5 d; |( K; C  O9 o/ {8 Q冒险岛外挂    DNF外挂

TOP

g1tv8g

新手上路

Rank: 1
5# 大 中 小 發表於 2009-10-13 07:45 AM  只看該作者

剑侠世界外挂2

剑侠世界外挂- Z2 p! O$ b  _7 F. _. _2 {% D
* ^3 I* q+ X4 k4 k8 n
游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
3 B1 ~6 d$ I" g6 p5 w( |5 m9 A# @/ R2 j' x# k6 Q
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 5 i' [  R& N" w% I) W' N5 s3 |

: j+ b: t8 R4 ?1 j0 m8 ^# e剑侠世界免费外挂
0 K& {4 d5 L! J" k3 r8 r; N3 \2 F) v' t5 N
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
! ^: i$ P- A5 N; [& U# G# Q* N3 y2 ]7 O& o5 X, d  U
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
4 X) k0 p" T4 L2 }6 |剑侠世界/ t/ q7 }" o9 [/ A( W

2 ^  l; Q: U, c- d: X. Kwww.hyfittings.com.cn   www.hyfittings.com.cn
7 ~" t2 @: ~' h1 [+ z
/ G) K7 F* ~6 d6 q1 _: \
$ U' W) w6 E) w# R4 d! {6 C7 L6 I# K0 z. ~/ N  P; o% O

TOP

xming777

新手上路

Rank: 1
6# 大 中 小 發表於 2009-10-17 04:14 AM  只看該作者

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
" H* V, C' S7 b( B# F1 D3 B! `( z% a4 C% f2 }
日子就这么一天天星尘传说外挂过下去。4 g/ C, h9 a9 H  ~% k

: S* b0 I; O7 |( X) p某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。# j8 A, m: x) w5 n2 r! z- r
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
% F* s; z8 @+ i  A0 ]% k/ I% q, ?终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

TOP

fack10

新手上路

Rank: 1
7# 大 中 小 發表於 2010-1-16 01:59 PM  只看該作者

支持！

支持！( {! B! W% W- ?, f+ E# ^* H

# Q% K: K' B* u* Y4 r
& C. P+ i- w$ M8 U4 G& [2 ?( u+ Y# X: C6 z. [8 J
7 D9 `  o( j1 N8 ?+ c; `/ g" V

) X$ f, |/ W0 P
. C5 ^, R# K6 o2 Y  K" L# e$ O7 L  n- }- ^' M* W( ]  Y

5 J' q$ d) W+ n
5 K8 ^8 O+ E; r: X+ h1 o: k
4 {0 l" i) Q. X( R* A* }( I  J* u4 Y" J) \" h
. ^5 }4 |9 [8 M0 p$ g! T6 D

; e' W' r0 O' m* @$ a2 g9 P  I: X. p% [Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

TOP

fack10

新手上路

Rank: 1
8# 大 中 小 發表於 2010-4-15 10:37 PM  只看該作者

支持！

支持！% F1 c% n" s) ^, L- Z) M
/ g2 d$ B# B+ k; w% k
+ z% Q4 N  F( ~, ]- U; z
- Q, Q/ C$ k5 ~( C" a3 R+ n
. @2 J+ K2 D% ?5 {
' T- |% f/ n8 }- m- g2 ]0 F
: F2 P# V$ J+ n1 ^6 t
& I6 E! c' z/ ^( H+ V2 G) b
7 A0 M" J3 \4 y8 l, A1 a$ O, Z9 Z
: f2 u' t4 B5 z% a
7 n; d2 m9 Z4 g% F

5 ?" R' ~' o6 ^4 n# e, v4 o5 C) J9 K% r( j: `
) Y3 H; \, Z* ]& N7 ]4 U+ i  |
矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管

TOP

‹‹ 上一主題 | 下一主題 ››
發新話題