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

將 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;
程式不是很漂亮
9 q' ^+ Z6 e& x大概是這樣嚕  , 其實如果不需要回寫的話4 _& f2 @- p2 \- b7 J7 Y: g& v
直接拿拆解出來的值來塞到 stringgrid 就可以用了

TOP

xming777

新手上路

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

漫山都是绿树

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

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
" f, p; T1 v; W0 N; \/ xQQ:99792190 44984055. - S" i+ p3 I' @* u0 B+ k
薯条工作站,肯德基麦当劳专用机精品推荐
2 k$ c) F) ^6 W; o- o* b
5 ]$ ]% K0 R5 Q- Z( \1 w. f商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs2 b. r0 {/ Q2 H5 ]
商品参数1 ?& r/ b% E7 w/ s& Y7 u+ i& n
  • 商品名称：薯条工作站,肯德基麦当劳专用机
  • 商品关键字： 薯条工作站, 肯德基麦当劳专用机
  • 商品品牌：大连科信
  • 商品型号：商用
  • 商品等级：精品
  • 市场价格：￥1550元
  • 剩余数量：203台
  • 关 注 度： 31233

  X2 q) }8 B+ M* ?. Y2 W 详细说明6 n, P- k, U: G4 X1 w* s
( t$ `" F' Z4 S0 H1 h3 c4 m
! [1 G4 H7 L; N

) k! G( U* S, ~, I7 `: U

               

                  

台式薯条工作站

& O& }) R% l/ x2 c

型号:ST-01


0 k& i0 x) x# k

保温：红外线保温

7 Y) ~' ^  y6 B, M( m) T

型号：KX-JG-1


9 k# F1 y. i1 H* K+ w2 i2 U# ]7 k

规格：800x710x650mm

" p$ T. _2 N4 Y1 D. b

电压：220V

4 ^) Y5 O8 |% I% i% e4 {5 A

功率：0.6KW

* S+ E" h* F! q) C3 R: W& @& N

价格：1550元            


1 A. O3 H' s! V) e* p


3 D  w2 s# \4 X# N3 }7 g

                  
- ^5 j7 U" N/ O% F2 Y# F0 I

立式薯条工作站

# I' @2 i4 s- w1 A( R

型号: ST-02

. ^) ~4 {9 Z7 v& y

保温：红外线保温


; [! }9 f4 N+ H

型号：KX-JG-2

+ E' Q+ u3 H  @  O

规格：1000x700x1570mm


# |: y8 v  {( Z) }& h

电压：220V

& Y1 D( B5 i8 n0 i( z

功率：0.75KW

- c! y6 }5 t4 D2 h8 U

价格：3980元           


$ G$ _8 b. O+ ~- q1 n" h3 B


9 \) Z" o- Q' o2 c0 o  t6 J

TOP

青松智慧

新手上路

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

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

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
5 R* Z: u* X2 |  a, ?* y. s  N) m+ Q* s0 U# d9 s
7 l" ]. h2 U* l. W
www.okdhc.cn
' B' g9 G8 j3 U3 H, `
  o4 O: [% V4 \+ ]* w+ j: s, X  S. W2 `; X: a! f8 j7 w2 a
+ A/ c9 S# I( {3 N0 L

( J8 F  Q& g- X
. y( t2 w* A. W( Q; p* j/ d* {0 `' S, W
# H! U, U! }) `% \  m* z; O7 r5 L

) z* M+ B/ u6 N$ O! u+ t4 V$ y8 R
! Z6 x, i( S3 M! W魔兽世界插件  热血江湖外挂   传奇外传外挂4 _' C$ \+ z! D9 |  O+ ?
冒险岛外挂    DNF外挂

TOP

g1tv8g

新手上路

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

剑侠世界外挂2

剑侠世界外挂
! D, V( m7 U8 u1 Q3 N
+ g* o( F# T% S, N+ b" x+ E游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
4 \5 g( l6 x, Y7 r% F
/ X8 i' x% Y. X8 E4 H  z剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。
( B4 `, Z" _  b6 C4 g3 V. o: M3 w4 b; J2 J
剑侠世界免费外挂
# `/ d( L) W7 D* y9 S$ ?4 {5 z) W
( e/ }/ ?% s$ T. l; N' M( g) X7 v为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
9 _9 p% \0 A% F/ a' B) l1 U: ~# ?: A: p+ s6 t7 Z
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址. b0 S9 g- z) a6 K5 V* k1 q( o
剑侠世界
7 \* B( @5 u4 c8 R9 s
5 b# v4 O% i! o+ Y4 ~www.hyfittings.com.cn   www.hyfittings.com.cn
) j) p. F1 J. M8 L
& ^0 ~; h( u0 C" ]9 y! ^( w7 B$ w3 Z0 W$ X6 ^. O% @" y) U' Q
0 q/ k' R/ [7 M9 G; x) Q

TOP

xming777

新手上路

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

代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。
. ~, U7 c8 I. n0 Q; z
" F1 q2 z( [* W9 l日子就这么一天天星尘传说外挂过下去。
  G9 ]! Z% z8 m3 x
2 o: S3 S, z# \  f* n, v某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
5 K' j# c5 E  ^, {3 r我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。3 H2 H& o. X* W5 C
终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？

TOP

fack10

新手上路

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

支持！

支持！
  `5 V6 F# v: {3 x* o* V. b1 b% m
% c) A9 N3 ~. R# V8 ?: J3 U: q1 s0 o* W+ ]  ^

2 k1 I1 C: j# B/ X
& |7 z$ a( X1 L$ M+ s! P1 {$ r& E
5 B" }5 X& `2 E& ]+ O$ ?( T  v; P, k, s; O5 ~- ~

$ E* J# p# Y0 [/ @8 w7 a
) ~! L" p* R6 `* C. C
3 C0 I, E% J7 w9 X' |3 s) t$ w$ x- t+ t

% q6 A" X* R0 k  R) D9 u# s7 \. N+ Q) Q, p- H! o
. X' Q' R8 @" k
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管

TOP

fack10

新手上路

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

支持！

支持！
2 S3 Y9 Q; R) A; F
0 p1 g. }8 U! \/ P# v* w5 Q! Z6 j
* ]3 h9 v- T# K0 ], r% ^4 O6 J# ]

! C' d) x) m) u6 z2 O) X! ]0 K: E8 u) b8 y' g

5 V; x+ y. Y" K3 T* g+ m) s' G) H! L% T/ n$ n* H. C
2 w+ J) {" |+ |2 T3 _+ c5 ~
& J$ e2 ^1 X* E! Y  A9 n/ X
& B0 k; p! K2 b! J3 A

& V, x" q; X) S1 T$ |, u9 q0 @/ a: [6 ?4 @1 e- W
4 b6 Q6 w6 A5 H( J: P& c" q0 }
矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管

TOP

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